Discussion :

[fred_crrm]

Bonjour tout le monde,

voilà suite à l'importation d'un fichier AS400 et à son triturage à l'aide de script VBA, j'aurais voulu savoir s'il était possible d'enregistrer chaque onglet obtenu (18 au total) dans un document Excel portant par exemple le nom de l'ongler ?

Merci pour votre aide et bonne journée.

[Pierre Fauconnier]

Bonjour

Itérer sur la collection des feuilles
copier chaque feuille de calcul sans paramètres ( = créer un nouveau classeur)
sauver le nouveau classeur en le nommant selon l'onglet

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub EnregistrerOnglets()
    Dim Feuille As Worksheet
 
    Application.ScreenUpdating = False
    For Each Feuille In ThisWorkbook.Worksheets
        Feuille.Copy
        ActiveWorkbook.Close savechanges:=True, Filename:=ThisWorkbook.Path & "\" & ActiveWorkbook.Worksheets(1).Name
    Next Feuille
    Application.ScreenUpdating = True
End Sub

On peut faire plus propre avec des objets workbook, mais je te laisse le choix de le faire ou pas.

Ok?

[fred_crrm]

Merci pour la réponse (rapide en plus),

j'ai fait un petit essai et c'est tout bon comme ça.

Bon week-end.