boite de dialogue repertoire VB

[cyril_25]

Bonjour à tous,

Je cherche un moyen en VB d'ouvrir une boite de dialogue qui permette de choisir un repertoire de travail (idem getopenfilename, mais pour un repertoire).

Merci de votre aide

Cyril

 

[tototiti2008]

Re : boite de dialogue repertoire VB

Bonjour,

tu peux essayer ça :

Sub ChoixDoss()
Dim Dial As FileDialog
Set Dial = Application.FileDialog(msoFileDialogFolderPicker)
Dial.AllowMultiSelect = False
Dial.Title = "Choix du dossier de travail"
Dial.InitialView = msoFileDialogViewList
ChDir "c:\temp"
Dial.Show
End Sub