Sub a()
Const DESKTOP = &H10&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(DESKTOP)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "Choisir un dossier:", OPTIONS, strPath)
If objFolder Is Nothing Then
End
End If
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path
MsgBox objPath
End Sub