sebbbbb
XLDnaute Impliqué
bonjour
ce code ne fonctionne pas.
voyez vous la raison svp
merci par avance
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Msg = "Avez-vous inscrit" & vbCrLf & "" & vbCrLf & " votre nom et la date de la dernière mise à jour sur la feuille accueil merci"
StyleBoîteDialogue = vbOKOnly + vbQuestion
Title = "Avant de fermer ce fichier,"
réponse = MsgBox(Msg, StyleBoîteDialogue, Title)
End Sub
ce code ne fonctionne pas.
voyez vous la raison svp
merci par avance
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Msg = "Avez-vous inscrit" & vbCrLf & "" & vbCrLf & " votre nom et la date de la dernière mise à jour sur la feuille accueil merci"
StyleBoîteDialogue = vbOKOnly + vbQuestion
Title = "Avant de fermer ce fichier,"
réponse = MsgBox(Msg, StyleBoîteDialogue, Title)
End Sub