Message avant impression

[marie49]

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

 

[ERIC S]

Re : Message avant impression

Bonjour

que fait ton userform ?

si c'est juste pour afficher un message avant impression

Private Sub Workbook_BeforePrint(Cancel As Boolean)

If ActiveSheet.Name = "BASIC" Or ActiveSheet.Name = "QUALIF." Or ActiveSheet.Name = "QUALIF1." Or ActiveSheet.Name = "QUALIF2." Then
msgbox ......
End If

End Sub

ou
si demande d'info


Private Sub Workbook_BeforePrint(Cancel As Boolean)

If ActiveSheet.Name = "BASIC" Or ActiveSheet.Name = "QUALIF." Or ActiveSheet.Name = "QUALIF1." Or ActiveSheet.Name = "QUALIF2." Then
info=inputbox(...)
if info ="" then exit sub 'ou peut-etre cancel=true
......
End If

End Sub


A+

 

[marie49]

Bonjour,
En fait je mets un message et je demande à l'utilisateur si il veut continuer de lancer l'impression ou si il arrête. Ceci avec des boutons oui ou non.
Je ne sais pas trop utiliser les msgbox mais je vais voir si cel apeut m'aider.
Merci
Marie

 

[ERIC S]

Re : Message avant impression

re

info=msgbox ("Continuer l'impression ?",vbyesno)
if info=vbno then exit sub

à la place du exit sub il faut peut-être mettre cancel=true qui devrait annuler l'ordre d'impression

A+

 

[ERIC S]

Re : Message avant impression

re

au fait, 49 c'est pas le Tarn

c'est ta pointure ?

Bienvenue sur le forum

 

[marie49]

Merci pour la remarque... ce n'est meme pas ma pointure ni mon age...
mais il faut bien un pseudo

Alors revenons a nos moutons : j'ai utilise msgbox et ca marche.

Merci de m'avoir aider malgre ...
A+
Marie

 

[ERIC S]

Re : Message avant impression

re

A bientôt peut-être

on est quelques fois une peu "taquins" sur le forum, pour y mettre un peu d'âme en plus des réponses sérieuses qui sont faites.

A+