regarde ceci, le "path" se retrouve dans la variable "chemin" :
Code:
Dim chemin As String
With Application.FileDialog(msoFileDialogFolderPicker)
'.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then chemin = .SelectedItems(1)
End With