lister fichier dans un repertoire avec vba

[sam2009]

salut,

 

svp pourriez vous m'aider à trouver une commande vba qui peut me lister tout mes fichiers qui se trouvent dans un répertoire donné ?

 

merci

[rom1_am]

Bonjour,

 

Il faut utiliser la fonction "Dir" et faire une boucle tant que la valeur renvoyée n'est pas vide.

 

Voici l'exemple de l'aide:

Dir, fonction, exemple
Cet exemple utilise la fonction Dir pour vérifier si certains fichiers et dossiers existent.

Dim MyFile, MyPath, MyName
' Renvoie "WIN.INI" (sur Microsoft Windows) si ce fichier existe.
MyFile = Dir("C:\WINDOWS\WIN.INI")    

' Renvoie le nom de fichier avec l'extension indiquée. Si plusieurs
' fichiers *.ini existent, le premier fichier trouvé est renvoyé.
MyFile = Dir("C:\WINDOWS\*.INI")

' Appelle de nouveau Dir sans argument pour renvoyer le
' fichier *.INI suivant dans le même dossier.
MyFile = Dir

' Renvoie le premier fichier *.TXT avec l'attribut fichier caché.
MyFile = Dir("*.TXT", vbHidden)

' Affiche les noms dans C:\ représentant des dossiers.
MyPath = "c:\"    ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory)    ' Extrait la première entrée.
Do While MyName <> ""    ' Commence la boucle.
   ' Ignore le dossier courant et le dossier
   ' contenant le dossier courant.
   If MyName <> "." And MyName <> ".." Then
       ' Utilise une comparaison au niveau du bit pour
       ' vérifier que MyName est un dossier.
       If (GetAttr(MyPath & MyName) _
           And vbDirectory) = vbDirectory Then
           Debug.Print MyName    ' Affiche l'entrée uniquement si elle
       End If    ' représente un dossier.
   End If
   MyName = Dir    ' Extrait l'entrée suivante.
Loop