Discussion :

[sasafca]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    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!

[Invité]

Bonjour,

Je ne connais pas la fonction Len, mais (http://msdn.microsoft.com/fr-fr/libr...=vs.80%29.aspx) il semble qu'il s'agisse du nombre de caractère d'une chaîne de caractère.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do While Len(Fichier) > 0

Cela signifie donc que si le nombre de caractères du nom fichier est supérieur à 0, la boucle s'arrête en principe.

[sasafca]

La fonction Len retourne le nombre de caractère du nom du fichier.
Donc ici, tant que le nom du fichier est supérieur à 0 (donc qu'il y a un nom de fichier) le programme tourne.
ça fonctionne mais le problème c'est que ça me saute des fichiers, autrement la boucle fonctionne elle s'arrete au dernier fichier.

[EngueEngue]

Sujet traité des millions de fois. Tu as 36 millions de façons d'approcher. Choisis la tienne. Google t'aidera: "Boucler VBA Fichiers Repertoire"

[Daniel.C]

Bonjour,

Peux-tu donner le nom d'un fichier non traité ? Est-ce qu'il ne s'agit pas de fichiers système ou cachés ?

[sasafca]

Sujet traité des millions de fois. Tu as 36 millions de façons d'approcher. Choisis la tienne. Google t'aidera: "Boucler VBA Fichiers Repertoire"

J'ai déjà cherché, j'ai même trouvé la boucle (que je cite plus haut) mais le problème c'est que ça ne traite pas tous les fichiers (seulement 1/5).
Merci quand même de la réponse.

Bonjour,

Peux-tu donner le nom d'un fichier non traité ? Est-ce qu'il ne s'agit pas de fichiers système ou cachés ?

Tous mes fichiers sont composés de la même manière (xxxxx - yyy.pdf), donc je ne comprends pas du tout d'ou ça peut venir J'ai quand même vérifié, ils ne sont pas cachés.

PS: J'ai ajouté des fichiers, mais la boucle va quand même de 5 en 5... (et ne prend donc pas forcèment les même fichiers à chaque test suivant que j'ajoute ou enlève des fichier).

[Invité]

Donc ici, tant que le nom du fichier est supérieur à 0 (donc qu'il y a un nom de fichier) le programme tourne.

Oui, c'est ça plutôt .

[Daniel.C]

"Dir" va lire les fichiers dans l'ordre de la date de création, pas forcément l'ordre qui est affiché dans l'explorer. Tu es bien sûr qu'en tout la boucle n'est passée que sur 1/5 des fichiers du dossier ?

[sasafca]

Incoryable, j'ai relancer Excel et la boucle marche.
J'ai cependant une erreur maintenant que j'ai ajouté mon traitement à la boucle sur le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fichier = Dir

ça me met "Erreur d'execution 5" argument ou appel de procèdure incorrect...
alors que tout à l'heure la boucle fonctionnait...

Est-ce que vous pourriez jetter un coup d'oeil à mon fichier excel si je le post ?

encore merci de votre aide