Recup tout les noms d'un dossier dans une feuille

[Fiz]

Bonjour,

Je voudrais récupérer tous les noms de fichier qui se trouve dans un dossier, et les mettre dans une feuille excel (1fichier par cellule).

help me please....

 

[RENAUDER]

Re : Recup tout les noms d'un dossier dans une feuille

Bonjour,

Sub ExplorerRépertoire()
   unRép = Dir("c:\excel\*.*", vbDirectory)    // Extrait la première entrée
   Do While unRép <> ""    ' Commence la boucle.
      i = i + 1
      Cells(i, 1) = unRép
      unRép = Dir
   Loop
End Sub

 

[Fiz]

Re : Recup tout les noms d'un dossier dans une feuille

merci ,pour la réponse.
Mais il me met une erreur de syntax sur la ligne :

unRép = Dir("c:\excel\*.*", vbDirectory) // Extrait la première entrée.

Et je ne sais pas si sais possible de choisir son repertoire via une boite de dialogue sans taper au clavier mais juste en cliquant?..

 

[RENAUDER]

Re : Recup tout les noms d'un dossier dans une feuille

Bonjour,
Normal car j'ai fait un Copie/Coller et la ligne
unRép = Dir("c:\excel\*.*", vbDirectory) // Extrait la première entrée
doit être corrigée comme suit :
unRép = Dir("c:\excel\*.*", vbDirectory) '// Extrait la première entrée

 

[Fiz]

Re : Recup tout les noms d'un dossier dans une feuille

encore merci ça fonctionne.

euh... est-il possible de mettre le nom des fichier en ColA et les Extension en ColB?