Bonjour aravis
Bonjour à tous
Le code suivant sauvegarde le fichier à "chaque fois qu'il est fermé" sous son nom avec la date du jour, mais en "nombre" par rapport à l'année 1900, même si la personne le sauvegarde sous un autre nom :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim monfichier As Single
monfichier = Date
ActiveWorkbook.SaveAs FileName:="C:\toto du " & monfichier & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Attention c'est systématique, donc cela ecrase le fichier qui a été fermé quelque temps avant, mais uniquement le jour même, celui de la veille n'est plus modifié.
Dans ce code il n'y a pas de mot de passe mais tu peux en ajouter un : Password= "titi" par exemple
J'espère que j'ai été clair
Cordialement