Traiter 100 fichiers avec une boucle sous VBA excel

Bonjour à tous (ou putot re-bonjour),
voilà j'ai développer une macro sur vba à partir d'exevcl qui permet de traiter et mettre en forme un fichier de data ascii (en gros il représente ces data dans un nouveau document excel recréé au cours de la macro). Ma macro étant lancée à partir d'un bouton excel.

Je souhaite maintenant exécuter ma macro mais je veux pouvoir traiter des centaines de fichiers dont je dispose. je suppose qu'il faut faire une boucle dans laquelle j'insère ma macro. Les fichiers que j'ai à traiter sont tous de la forme:
AAA.001
AAA.002
AAA.003
...
...
AAA.100.

Y-a-t-il une manière plus conseillée qu'une autre..? Si vous avez des conseils sur le code j'éssayerai.
Par avance merci.

Sébastien

Salut sebastien06
pour le nom, une instruction du type

Code:

---

Nom_Fichier = "AAA." & Format(x, "000")

---

dans une boucle X=1 à 100
A+

Merci j'ai commencé et j'avance.. Par contre je bloque au moment où je veux importer mes fichier j'ai mis un truc du style:

Code:

---

1 2 3

With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;E:\AAA."&Format(x,"000")", Destination:= _ ActiveSheet.Range("A1"))

---

et là par contre malgré plusieurs essais je bloque. As-tu une idée?
Merci,
Sébastien

Salut sebastien06
Je ne travaille pas avec les requêtes Query, donc difficile de t'aider bdans la syntaxe, mais.... essaie en remplaçant

Code:

---

1 2 3

With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;E:\AAA."&Format(x,"000")", Destination:= _ ActiveSheet.Range("A1"))

---

par

Code:

---

1 2	With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;E:\AAA." & Format(x,"000"), Destination:= [A1])

---

A+