Probleme de sauvegarde d'une copie du classeur actif
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.
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?
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?
Personne pour une quelconque amélioration?