DIR dossier

[julien13200]

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]

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