Discussion :

[APPRENTI54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BENNASR]

bonjour
Personnellement je fais avec Workbook_BeforeClose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[APPRENTI54]

Bonjour BENNASR,

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

Bonne fin de journée.