Discussion :

[sebastien06]

Bonjour à toutes et tous,
j'ai réalisé une macro sous visual basic excel pour traiter une centaine de fichiers de data ascii. Le principe c'est que pour chaque fichier brut est créé un nouveau fichier excel pour représenter le fichier brut en question.
Mon problème survient lorsque je souhaite enregistrer chaque fichier excel dans ma boucle.

Mes fichiers de data brut sont de la forme
AAA.001
AAA.002
AAA.003
...
AAA.099
AAA.100

et j'importe donc chacun de ces fichiers bruts dans un nouveau fichier excel.
Ma question est en fait, comment puis je enregistrer mes fichiers excel dans ma boucle (du type "For x=1 To 100) en leur attribuant le même nom que le fichier brut (de type AAA.00x).
Par avance merci pour vos suggestions, bon week end,

Sébastien.

[Abed_H]

Bonsoir
il te faut un code de ce genre, non tester bien sûr.

Code :

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

1
2
3
4
For Each w In Workbooks
     Nom_fichier = "AAA." & Format(CDbl(Right(w.Name, 3)), "000")
    w.SaveAs Filename = Nom_fichier
Next w

Bonne soirée

Abed_H

[fring]

Bonjour tlm,

Si j'ai bien compris, tous tes nouveaux classeurs excel créés à partir de tes fichiers data sont ouvert. Si oui et en considérant que tu n'as pas d'autres fichiers excel ouverts, une solution éventuelle ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub classeurs_save()
Dim i As Integer, chemin As String

chemin = "D:\Temp\" '<-- à adapter oeuf corse

For i = Workbooks.Count To 1 Step -1
    Workbooks(i).SaveAs Filename:=chemin & "AAA." & Format(i, "000") & ".xls"
    Workbooks(i).Close
Next i
End Sub

[sebastien06]

Bonjour,
merci pour vos suggestions mais pour l'instant ça ne fonctionne pas. Je continue à tenter quand même. Pour la 2e réponse ça marcherait bien mais le problème c'est qu'il y a obligatoirement une autre feuille excel ouverte car ma macro se lance d'une feuille excel...

[fring]

Bonjour,
merci pour vos suggestions mais pour l'instant ça ne fonctionne pas. Je continue à tenter quand même. Pour la 2e réponse ça marcherait bien mais le problème c'est qu'il y a obligatoirement une autre feuille excel ouverte car ma macro se lance d'une feuille excel...

Ce n'est pas un problème, vu que le fichier d'où tu lances la macro est le 1er à être ouvert, il suffit de changer la boucle

Code :

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

For i = Workbooks.Count To 2 Step -1

[sebastien06]

Effectivement ça marche bien comme çà merci!
Je vais quand même essayer de trouver une solution où d'autres fichiers excel peuvent être ouverts car en fait, pour expliquer rapidement, j'ai développé cette feuille excel contenant un bouton pour lancer la macro pour que d'autres personnes de mon entreprise puisse l'utiliser. Et je ne pourrai pas demander de ne pas avoir d'autres feuilles excel ouvertes dans windows lors de l'exécution de la macro.
Je vais continuer à chercher merci pour ton aide en tout cas.
Sébastien

[fring]

Cela n'est toujours pas un problème, au lancement de la macro il suffirait de charger une variable (Public), par exemple

Code :

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

WBouverts = Workbooks.Count + 1

et dans la boucle de sauvegarde, récupérer cette variable

Code :

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

For i = Workbooks.Count To WBouverts Step -1

[sebastien06]

Effectivement ça marche.. par contre maintenant il me met le nom du dossier avant le nom du fichier du style "NomDossierAAA.001.. Je pense que cela vient de file name je vais essayer de le supprimer.
Merci!

[sebastien06]

C'est bon tout est bon merci encore de tes conseils, j'ai simplement supprimé 'chemin' avant.
Bonne journée et merci,
Sébastien