Discussion :

[sebastien06]

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

[Gorfael]

Salut sebastien06
pour le nom, une instruction du type

Code :

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

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

dans une boucle X=1 à 100
A+

[sebastien06]

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 :

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

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

[Gorfael]

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 :

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

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

par

Code :

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

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

A+