Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ancien_nom$, chemin$, nouveau_nom$
ancien_nom = ThisWorkbook.Path & "/" & ThisWorkbook.Name
chemin = Replace(ThisWorkbook.Path, ":", "_")
chemin = Replace(chemin, "/", "_")
nouveau_nom = " Tintin " & Format(Now, " dd_mm_yyyy") & "_" & chemin & ".xlsm"
On Error GoTo fin
ThisWorkbook.SaveAs ThisWorkbook.Path & "/" & nouveau_nom
If ancien_nom <> nouveau_nom Then Kill ancien_nom
fin:
End Sub