Sélectionner un dossier (répertoire)

bonjour dom,

Sub Macro1()
x = Application.GetOpenFilename
MsgBox CurDir
End Sub

isabelle

bonjour,

Il existe GetOpenFilename pour choisir un ou plusieurs fichiers à ouvrir.

Comment fait-on pour afficher un dialogue sur lequel il est possible de
choisir un répertoire (ou dossier) ?

Quelque chose du genre GetFolderName ?

Merci
:-) Dom

Va voir ici:
http://dj.joss.free.fr/fichier.htm
Comment récupérer le chemin complet d'un répertoire

ou bien ici encore:
http://dj.joss.free.fr/down.htm
le fichier lstfile.zip

Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm


"Fil GOUDE" <figoude@yahoo.fr> a écrit dans le message de news:
figoude-5592E0.17181004052004@news6-e.proxad.net...
| bonjour,
|
| Il existe GetOpenFilename pour choisir un ou plusieurs fichiers à ouvrir.
|
| Comment fait-on pour afficher un dialogue sur lequel il est possible de
| choisir un répertoire (ou dossier) ?
|
| Quelque chose du genre GetFolderName ?
|
| Merci
| :-) Dom

ce "x=" ne serait-il pas superflu, mon ange, c'est à dire tout-à-fait
l'opposé de toi?
jps

isabelle a écrit:

bonjour dom,

Sub Macro1()
x = Application.GetOpenFilename
MsgBox CurDir
End Sub

isabelle

bonjour,

Il existe GetOpenFilename pour choisir un ou plusieurs fichiers à ouvrir.

Comment fait-on pour afficher un dialogue sur lequel il est possible de
choisir un répertoire (ou dossier) ?

Quelque chose du genre GetFolderName ?

Merci
:-) Dom

ce "x=" ne serait-il pas superflu, mon ange, c'est à dire tout-à-fait
l'opposé de toi?

si si mon ange :-) mais comme toi et moi, il peux toujours servir ;-)

Sub Macro1()
x = Application.GetOpenFilename
MsgBox CurDir
MsgBox x
End Sub

isabelle

:-)))))
surtout toi, isabelle, surtout toi mais n'en abuse pas...
jps

isabelle a écrit:

ce "x=" ne serait-il pas superflu, mon ange, c'est à dire tout-à-fait
l'opposé de toi?

si si mon ange :-) mais comme toi et moi, il peux toujours servir ;-)

Sub Macro1()
x = Application.GetOpenFilename
MsgBox CurDir
MsgBox x
End Sub

isabelle