Public Enr_Valid As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Enr_Valid = True
On Error GoTo Fin
ThisWorkbook.SaveAs ThisWorkbook.Worksheets(1).Range('A1').Value
MsgBox 'Document enregistré', vbOKOnly + vbInformation
Fin:
Enr_Valid = False
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = Not (Enr_Valid)
End Sub