Comment en VBA ouvrir la boîte de dialogue de sélection d'un dossier sur un dossier par défaut tout en autorisant l'utilisateur à en changer en naviguant dans l'arborescence ?

Sub test()
 ' Attention le "\" à la fin de la ligne de commande est essentiel.
   MsgBox SelDossier("F:\docFlo\www\")
End Sub

Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
    .InitialFileName = Defaut
    If .Show = -1 Then
        SelDossier = fd.SelectedItems(1)
    End If
End With
Set fd = Nothing
End Function

Cette fonction est utilisée dans ce classeur dc-visionneusephoto

Attention FileDialog n'étant pas reconnu dans excel 2000 et versions antérieures cette macro ne fonctionne qu'avec les versions 2002 et +.