DIR dossier

julien13200 · 21 Février 2005

bonjour!!
voila une semaine que je me gratte la tete sans parvenir a mes fins...
j'ai une feuille excel avec une cellule dans laquelle je renseigne l'adresse d'un dossier 'c:\\toto'.
je voudrai que l'utilisateur clique sur un bouton et que tous les dossiers et fichiers présents dans 'c:\\toto' soit listés dans la feuille active...
est-ce possible?? (j'arrive a lister les fichiers mais pas les dossiers...
Merci d'avance... :sick:

WILFRIED · 21 Février 2005

Salut Julien

Voici en quelque ligne un exemple de code

chdrive('C')
chdir('C:\\toto')
m_dossier=dir(*.*)
range('B1').select
do until m_dossier=''
activecell.offset(1,0).select
activecell.formula=m_dossier
m_dossier=dir
loop

cela devrait te renvoyer tous les fichiers et dossier de ton repertoire.

A+ Wilfried ;op

DIR dossier

julien13200

Guest

WILFRIED

XLDnaute Impliqué

Discussions similaires