Option Explicit
Function BrowsingFolder(TheDriveAndPath As Variant)
Dim ObjShell As Object, ObjFolder As Object
Dim TheMessage As String
Dim ThePath As String
TheMessage = 'Faire la Sélection du Repertoire à Scanner et répondes OK :'
Set ObjShell = CreateObject('Shell.Application')
Set ObjFolder = ObjShell.BrowseForFolder(0, TheMessage, 0, TheDriveAndPath)
On Error Resume Next 'Si on sort sans sélection
ThePath = ObjFolder.ParentFolder.ParseName(ObjFolder.Title).Path & ''
BrowsingFolder = ThePath
End Function
Sub TestingBrowsingFolder()
Dim ActualPath As Variant
Dim SelectedPathFolder As String
ActualPath = 'C:\Documents and Settings\TE\My Documents\Acrobat\' '<<< A Adapter
SelectedPathFolder = BrowsingFolder(ActualPath)
If Not SelectedPathFolder = Empty Then MsgBox SelectedPathFolder
End Sub