XL 2010 Boite de dialogue pour répertoire

  • Initiateur de la discussion Initiateur de la discussion GilTho
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
21
Affichages
2 K
Réponses
14
Affichages
2 K
Retour