Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim chemin$, nom$
Cancel = True
chemin = Me.Path & "\"
nom = Left(Me.Name, InStrRev(Me.Name, ".") - 1) 'nom sans l'extension
Application.DisplayAlerts = False
Application.EnableEvents = False
Me.SaveAs chemin & nom, IIf(Val(Application.Version) < 12, xlNormal, 56)
Application.EnableEvents = True
End Sub