Private Sub Workbook_Open()
CancelSortie = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = CancelSortie
End Sub
'DANS LE MODULE
Public CancelSortie As Boolean
Sub Fermer_Tableau()
Dim ret as integer
ret = MsgBox(" Fermer le tableau ?", vbYesNo + vbDefaultButton2)
If ret = vbYes Then
CancelSortie = False
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Quit
End If
End Sub