Tout simplement génial.
J'en profite pour te demander ton avis sur un autre chapitre de mon code.
J'ai en fait un classeur A composé de 3 onglets dans lequel j'active une macro qui me traite certaines données.
Une fois le traitement effectué, je souhaite sauvegarder une copie de ce classeur actif mais uniquement avec les deux premiers onglets.
Voici mon code :
'Sauvegarde copie nouveau fichier
Dim Wb As Workbook
Set Wb = Workbooks.Add
ThisWorkbook.Activate
Sheets(Array("sheet1", "sheet2")).Select
Sheets(2).Activate
Sheets(Array("sheet1", "Sheet2")).Copy Before:=Wb.Sheets(1)
Sheets("Feuil1").Select
'Masquer la demande d'autorisation de suppression de la feuille
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
ThisWorkbook.Activate
Chemin = "C:\Users\user\Desktop\"
'Ajoute l'indice et la date du jour dans le nom du fichier
Fichier = "Numérotation config_" & Format(Date, "ddmmyyyy") & ".xlsx"
'Enregistrement du nouveau classeur nommé "Fichier" sur le lien "Chemin"
Wb.SaveAs Chemin & Fichier
'Fermeture du nouveau classeur sans enregistrement (car fait juste plus haut)
Workbooks("Numérotation config_" & Format(Date, "ddmmyyyy") & ".xlsx").Close False
--> Je suis certain qu'il y a beaucoup plus simple!!