XL 2010 Boite de dialogue pour répertoire

[GilTho]

Bonjour le forum,

mon souci : J'ai un répertoire D:\Test01\Test02\Test03\Test04

Je voudrais que VBA mémorise ce chemin au moyen d'une boite de dialogue, alors j'ai utilisé :

Sub Repert()
   Dim MonDossier
   Application.FileDialog(msoFileDialogFolderPicker).Show
   MonDossier = Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
End Sub

Je clique jusqu'au répertoire /Test04 dans la boite de dialogue qui s'ouvre,
mais MonDossier ne me ramène que "D:\Test01\Test02\Test03"

Comment faire pour qu'il me propose "D:\Test01\Test02\Test03\Test04" ?

Merci de votre aide

 

[Robert]

Bonjour GilTho, bonjour le forum,

Essaie comme ça :

Sub Repert()
Dim MonDossier
Application.FileDialog(msoFileDialogFolderPicker).Show
MonDossier = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
End Sub

 

[GilTho]

Super! Merci beaucoup !