Execution macro à la fermeture d'Excel

Bonjour le forum,

J'ai fait une macro pour créer une copie de sauvegarde de mon fichier qui marche comme je le souhaite :

Sub CopieSauvegarde()

Dim Chemin As String, Fichier As String

Chemin = "F:\ECHANGE\DISPATCH FEUILLE DE POINTAGE\Sauvegardes\"

'Ajoute la date du jour et l'heure dans le nom du fichier

Fichier = "TOP 2 ROUES POINTAGE_" & Format(Date, "yyyymmdd") & ".xlsm"

ActiveWorkbook.SaveCopyAs Chemin & Fichier

End Sub

Maintenant j'aimerais que celle-ci s'exécute à la fermeture du classeur, j'ai donc écrit ça :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call CopieSauvegarde

End Sub

Mais rien ne se passe lorsque je quitte Excel, aucune sauvegarde ne se fait...

Des idées ? Peut-être ai-je loupé quelque chose dans le fonctionnement

Merci à vous en tout cas !

bonjour,

Tu les as mises ou ces macros ?

Normalement elles devraient être dans le module ThisWorkbook

A+

En effet ça marche mieux ainsi )

Je n'étais pas sur le bon module, merci !