XL 2010 Boite de dialogue pour répertoire

GilTho

XLDnaute Nouveau
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é :

VB:
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

XLDnaute Barbatruc
Repose en paix
Bonjour GilTho, bonjour le forum,

Essaie comme ça :

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

Discussions similaires

Réponses
14
Affichages
1 K