Bonsoir Kobaya,
Merci de me répondre. OK pour le bonjour oublié je ne recommencerai plus !
Voici mon code :
Public Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Repp As Integer
Repp = MsgBox("Avez-vous sauvegardé vos données ?", vbQuestion + vbYesNo, strAppName)
If Repp = vbYes Then
ThisWorkbook.Saved = True
ThisWorkbook.Close saveChanges:=False
Else
ThisWorkbook.Saved = True
Cancel = True
Exit Sub
End If
End Sub
Public Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
Cancel = True
End If
ThisWorkbook.Close
End Sub
Qu'en penses-tu ?
Merci
AlDraw