Message d'alerte sur Excel Résolu

Question

Bonjour,

Je viens de créer un message d'alerte sur Excel via "ThisWorkBook"
Dans ce message j'y indique une question avant la fermeture du ficher, à savoir : "La date de relance est-elle saisie ?"
avec en + 2 cases "oui" ou "non".
Seulement voilà ! Lorsque je teste ce message, si par exemple je clique sur "non", il ferme tout de même 
mon fichier au lieu de rester dessus pour pouvoir saisir la date de relance.

Voici ce que j'ai tapé :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Msg = "La date de relance est-elle saisie ???"
StyleBoîteDialogue = 4
Title = "IMPORTANT"
réponse = MsgBox(Msg, StyleBoîteDialogue, Title)

End Sub

Merci par avance pour vos aides précieuses !

m@rina · Answer

Bonjour,

Ben oui, il suffit pas d'afficher une boîte de dialogue... Il faut tester les réponses et en particulier le No.

De plus la macro que tu nous donnes est une beforeSave et non pas une BeforeClose...

Voici ce qui marchera :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim msg, réponse
msg = "La date de relance est-elle saisie ???"
réponse = MsgBox(msg, 4, "Important")

If réponse = vbNo Then
MsgBox "Veuillez saisir la date avant de fermer"
Cancel = True
End If

End Sub

cyrilg1976 · Answer

.................... :) m@rina................. t'es un(e) génie !!!
Ca fonctionne nickel ! je me doutais bien qu'il fallait une condition ! mais impossible de savoir comment la faire!!
Merci à toi !! Ce sujet peut etre cloturé !!!!

Message d'alerte sur Excel

2 réponses

Votre réponse

Discussions similaires

Newsletters