Visual Basic Excel - Boîte de dialogue

[Fermé]
Signaler
-
Messages postés
13
Date d'inscription
mercredi 28 février 2007
Statut
Membre
Dernière intervention
20 décembre 2007
-
Bonjour,
Je souhaite créer une boîte de dialogue sur Excel qui demande lorque je clique sur "Imprimer" :
"La mise à jour a-t-elle été effectuée ?"
Si oui, alors imprimer
Si non, alors ne pas imprimer.

Merci pour votre aide

1 réponse

Messages postés
13
Date d'inscription
mercredi 28 février 2007
Statut
Membre
Dernière intervention
20 décembre 2007
35
Bonjour,
Dans la fenêtre de Visual Editor et dans l'explorateur de projet,clique sur ThisWorkbook pour en visualiser le code.
Dans la feuille du code sélectionne l'objet Workbook puis l'événement associé BeforePrint.
il apparaît alors:
Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub
Dans la procédure rendre le code suivant:
Dim Message As Integer

Message = MsgBox("La mise à jour a-t-elle été effectuée ?", vbYesNo + vbQuestion, "Impression de la mise à jour")
If Message = vbNo Then
Cancel = True
End If

J'espère que cela répond à ta question