Bonjour,
Je voudrai mettre un message à l'utilisateur lorsqu'il souhaite imprimer certaines pages.
J'ai créer un userform avec deux boutons de commandes oui et non. Cet USF dont le nom est Impression est appele par :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "BASIC" Or ActiveSheet.Name = "QUALIF." Or ActiveSheet.Name = "QUALIF1." Or ActiveSheet.Name = "QUALIF2." Then
Impression.Show 0
End If
End Sub
Je ne vois pas comment faire pour activer les boutons oui et non. J'ai utilisé différentes méthodes dont voici la dernière :
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Private Sub CommandButton2_Click()
Impression.unload
End Sub
Desolee, je ne suis pas tres douee pour les userform...
Pouvez vous m'aider?
Merci
Marie
Je voudrai mettre un message à l'utilisateur lorsqu'il souhaite imprimer certaines pages.
J'ai créer un userform avec deux boutons de commandes oui et non. Cet USF dont le nom est Impression est appele par :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "BASIC" Or ActiveSheet.Name = "QUALIF." Or ActiveSheet.Name = "QUALIF1." Or ActiveSheet.Name = "QUALIF2." Then
Impression.Show 0
End If
End Sub
Je ne vois pas comment faire pour activer les boutons oui et non. J'ai utilisé différentes méthodes dont voici la dernière :
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Private Sub CommandButton2_Click()
Impression.unload
End Sub
Desolee, je ne suis pas tres douee pour les userform...
Pouvez vous m'aider?
Merci
Marie