Boucle dans un dossier

sasafca Messages postés 567 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

voila je souhaite effetuer un traitement sur les fichiers contenu dans un dossier. Mais je n'arrive pas à créer une boucle sur mes fichiers.

J'ai essayé ceci:

Chemin = "C:\..."
Fichier = Dir(Chemin & "*.*")

Do While Len(Fichier) > 0
Debug.Print Chemin & Fichier
Fichier = Dir
Loop Cependant, ce code lit 1 fichier sur 5...
J'ai donc 4 fichiers qui ne sont pas traités à chaque boucles.

Comment rectifié ceci svp ?

Merci!

A voir également:

3 réponses

f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

Votre code marche tres bien, il y a autre chose!!!!
0
sasafca Messages postés 567 Statut Membre 4
 
je ne comprend pas pourquoi chez moi il lit 1 fichier sur 5...
0
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Re,

Peut-etre au niveau du chemin!!!
0