Microsoft 365 Probleme de sauvegarde d'une copie du classeur actif

[AIr-V]

Bonjour,

Lors de la sauvegarde automatique d'une copie de mon classeur actif à l'aide d'une macro, un nouveau classeur s'ouvre en parallèle nommé "Classeur 0x" avec les mêmes données.

Tout le reste fonctionne parfaitement bien et ma copie initiale sauvegardée est également correcte. Je ne comprends pas cette ouverture intempestive du nouveau classeur a chaque fin de macro alors que je n'ai rien demandé dans le programme.

Voici la fin du code en question :

'Sauvegarde copie nouveau fichier

Worksheets(Array("sheet1", "sheet2")).Copy
Worksheets("sheet2").Activate

Chemin = "C:\Users\user\Desktop\"
'Ajoute l'indice et la date du jour dans le nom du fichier
Fichier = "Numérotation config_" & rev & "_" & Format(Date, "ddmmyyyy") & ".xlsx"

ActiveWorkbook.SaveCopyAs Chemin & Fichier

'Sauvegarde et fermeture fichier de travail

ActiveWorkbook.Close True

Application.ScreenUpdating = True

End Sub


Merci par avance pour votre aide car je commence à ronger mon clavier.

 

[AIr-V]

Ca y est, j'ai trouvé l'origine de mon problème qui proviendrait de :

Worksheets(Array("sheet1", "sheet2")).Copy

Est-il possible de ce fait de créer une copie de ce classeur avec que deux feuilles sur les trois du classeur actif?

 

[AIr-V]

Bon, j'ai réussi à trouver une solution mais je reste persuadé que je peux largement simplifier ce morceau de code qui est :

'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


--> Quelqu'un aurait-il une idée ou proposition?

 

[AIr-V]

Personne pour une quelconque amélioration?