Bonjour a vous tous
Comment puis je modifié ce code (venant de l’aide) afin de lancer l’impression une fois que l’appui sur le bon bouton avant impression soit fait
Puis si clic « oui » lancer l’impression de type
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub CommandButton4_Click() Dim Msg, Style, Title, Response, MyString Msg = "avez-vous cliquez sur le bon bouton ?" ' Définit le message. Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons. Title = "ATTENTION A L'OUBLI " ' Définit le titre. ' Affiche le message. Response = MsgBox(Msg, Style, Title) If Response = vbYes Then ' L'utilisateur a choisi Oui. MyString = "Oui" ' Effectue une action.imprime 2 pages Else ' L'utilisateur a choisi Non. MyString = "Non" ' Effectue une action.quitter End If End Sub
cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part Sheets("Feuil1").PrintOut Copies:=2, Collate:=True
Pascal
Partager