Sub RechercheDossier()
Dim oSh As Object, pIni As Object, pFile As Object
Set oSh = CreateObject("Shell.Application")
Set pIni = oSh.Namespace("C:\")
On Error Resume Next
'&H200 permet d'afficher ou non Création de dossier
'&H4000 permet d'afficher ou non les fichiers dans les répertoires
Set pFile = oSh.BrowseForFolder(0&, "Sélectionnez un dossier", &H1 + &H40 + &H200 + &H4000, pIni)
If Not pFile Is Nothing Then
MsgBox pFile.Items.Item.Path
End If
On Error GoTo 0
Set pIni = Nothing
Set pFile = Nothing
Set oSh = Nothing
End Sub