Dim rp As FileDialog
Set rp = Application.FileDialog(msoFileDialogFolderPicker)
With rp
.AllowMultiSelect = True
.InitialView = msoFileDialogViewDetails
.InitialFileName = "C:\Robots"
.Show
End With
L'expérience, c'est une connerie par jour, mais jamais la même..
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim Chemin As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.path