Bonjour à tous,
J'aurais besoin d'une petite aide pour une macro qui ne dois pas être très compliquée :p
J'ai un classeur xls qui est généré automatiquement via un logciel.
Ce classeur contient une quinzaine d'onglets.
J'ai donc écrit une macro me permettant de copier chaque onglet vers un fichier qui aura pour nom, le nom de l'onglet copié :
Sub SaveOnglet()
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
Jusque là, tout va bien, et ça marche.
Je voudrai par contre que l'onglet copié soit ajouté au fichier si celui-ci existe déjà (au lieu de le remplacer actuellement.)
Merci d'avance !