Visual Basic Excel - Boîte de dialogue

delphine -  
didier09 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

didier09 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   36
 
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
0