Tu t'appuies sur l'événement BeforeSave ou BeforeClose ou Open, et tu sauvegardes
ActiveWorkbook.SaveAs Filename:=Oldfilename+timer
(Oldfilname tu l'auras récupéré et timer, tu l'as crée grâce àa la fonction date).
Bonne chance dans ton code
---------------
L'imagination est plus importante que le savoir. Albert Einstein