Boite de dialogue pour parcourir

[X-Gestion]

Bonjour,

Bonjour à tous !
Je cherche une boite de dialogue qui permet de parcourir le disque pour sélectionner un dossier.

Avec GetOpenFilename si on ne sélectionne pas un fichier on ne peut pas sortir!

Quelle méthode utiliser?
Ou, comment adapter GetOpenFilename?

Merci de votre aide.

Xav

 

[jeanpierre]

Re : Boite de dialogue pour parcourir

Bonjour Xav,

Regarde ce fil, par exemple, mais il y en a d'autres.

https://www.excel-downloads.com/threads/boite-de-dialogue-pour-parcourir.6918/

Bon après-midi.

Jean-Pierre

Edit : Bonjour Hasco, pas vu tout à l'heure, re tototiti

 

[Guest]

Re : Boite de dialogue pour parcourir

Bonjour X-Gestion,

GetOpenFileName renvoie False si un fichier n'est pas sélectionné.

Dim Fichier as Variant

Fichier=Application.GetOpenFilename("Text Files (*.txt), *.txt")
if Fichier=False then Exit Sub


A bientôt

Edit: Hello JP

 

[tototiti2008]

Re : Boite de dialogue pour parcourir

Bonjour à tous,

Mais en effet, GetOpenFileName ne permet que de sélectionner un fichier, pas un dossier...

Pour un Dossier, il vaut sans doute mieux utiliser :

Application.FileDialog(msoFileDialogFolderPicker)