Code fermeture fichier avec backup

Bonsoir,

dans mon fichier j'ai placé le code ci-dessous pour faire un backup à la fermeture du fichier.

Par contre je trouve que cela est un peu lent ! Ou alors c'est normal ? env. 8 secondes du moment ou je clique sur le bouton fermer jusqu'à la fermeture de Excel.

Code:

---

1 2 3 4 5

Sub BACKUP() ActiveWorkbook.SaveCopyAs "C:\Users\Pete\Documents\Dossier Archivage\" + ActiveWorkbook.Name ActiveWorkbook.Save Application.Quit End Sub

---

Pourriez-vous me dire si mon code est correct ou non?

Merci à vous.

Dom

bonjour
Personnellement je fais avec Workbook_BeforeClose:

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_BeforeClose(Cancel As Boolean) If MsgBox("Voulez vous enregistrer une copie dans le serveur de sauvegarde ???", vbExclamation + vbYesNo) = vbYes Then Application.DisplayAlerts = False ActiveWorkbook.Save ThisWorkbook.SaveAs Filename:="Z:\TRAVAUX COMPTABLES BNA\Controle de Gestion\" & ThisWorkbook.Name Application.DisplayAlerts = True End If End Sub

---

Bonjour BENNASR,

Merci pour votre réponse et votre code. Impeccable.:merci:

Bonne fin de journée.