XL 2010 Boite de dialogue pour répertoire

GilTho · 27 Février 2020

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 · 27 Février 2020

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

GilTho · 27 Février 2020

Super! Merci beaucoup !

XL 2010 Boite de dialogue pour répertoire

GilTho

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

GilTho

XLDnaute Nouveau

Discussions similaires