BeforePrint qui ne marche pas

E

Evelynetfrancois

XLDnaute Impliqué

• 25 Octobre 2006

• #2

Re : BeforePrint qui ne marche pas

bonjour catoucat

vite fait
voici une syntaxe parmis d autre
je ne connais pas Private Sub Workbook_BeforePrint(Cancel As Boolean)
je suppose que ca doit imprimer le classeur complet???????

Private Sub Imprimer_classeur()
RETOUR = MsgBox("Have you checked the number of pallets?", 4 + vbInformation, "Warning")
If RETOUR = vbYes Then
Application.ScreenUpdating = False
For Each Feuille In Sheets
Feuille.PrintOut
Next
End If
Application.ScreenUpdating = True
End Sub

a +

E et F

 

Vote positif 0 Vote négatif

C

catoucat

XLDnaute Nouveau

• 25 Octobre 2006

• #3

Re : BeforePrint qui ne marche pas

En fait je veux lancer le message quand on essaye d'imprimer la feuille 1 qui s'appelle INVOICE (Sheet1) donc j'ai mis le code precedent dans la fenetre VBA correspondant a cette feuille.

Par contre j'ai Office en anglais donc Imprimer_Classeur doit etre en fait la version francaise de Workbook_BeforePrint Je ne vois donc pas pourquoi mon code ne s'execute pas du tout, peut-etre que je l'ai mis a un mauvais endroit? J'ai essaye de le mettre sur un bouton et mettre le code sur le code du bouton dans un module et ca marche. Je dois donc mal placer ma procedure...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Octobre 2006

• #4

Re : BeforePrint qui ne marche pas

Bonjour Catoucat, E et F,

Chez moi, excel2000, ton code placé dans ThisWorkbook fonctionne parfaitement, si je clique sur "annuler", aucune impression se fait !!!

Bonne journée
@+

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 25 Octobre 2006

• #5

Re : BeforePrint qui ne marche pas

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MsgBox("Have you checked the number of pallets?", vbOKCancel, "Warning") = vbCancel Then Cancel = True
End Sub
j ai essayeé ta syntaxe (que je viens de comprendre !!!)
elle marche bien chez moi
je l ai mise dans ThisWorkbook

E et F

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 25 Octobre 2006

• #6

Re : BeforePrint qui ne marche pas

oups bonjour pierrot93
pas rafraichi desole ...............................

 

Vote positif 0 Vote négatif

C

catoucat

XLDnaute Nouveau

• 25 Octobre 2006

• #7

Re : BeforePrint qui ne marche pas

Ouille c'est a n'y rien comprendre alors! Est-ce que ca marche quand tu fais apercu avant impression aussi? (comme ca au moins je pourrai faire mes tests avec ca!)

J'ai protege ma feuille mais je ne pense pas que ca joue, ca ne change rien quand je la deprotege... J'ai Access 2003 en anglais sinon

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 25 Octobre 2006

• #8

Re : BeforePrint qui ne marche pas

bin vi ca marche aussi !!

 

Vote positif 0 Vote négatif

C

catoucat

XLDnaute Nouveau

• 25 Octobre 2006

• #9

Re : BeforePrint qui ne marche pas

Ahhh En fait j'avais mis dans Modules et dans Invoice(Sheet1) mais pas dans ThisWorkbook... quelle est la difference exactement? Maintenant ca marche! merci Et la je veux ajouter la meme chose sur l'evenement "Enregistrer" je le mettrai dans ThisWorkbook aussi ou bien sur Invoice(Sheet1)?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Octobre 2006

• #10

Re : BeforePrint qui ne marche pas

Re Catoucat, E et F

L'evenement doit toujours être placé dans le module du classeur ou de la feuille concerné, le code associé se délanche alors. Pour l'evenement "BeforeSave" il ne peut être placé que dans ThisWorkbook, d'ailleurs tu remarqueras certainement que cet evenement n'existe pas dans les modules de feuilles.

Bonne journée
@+

 

Vote positif 0 Vote négatif

C

catoucat

XLDnaute Nouveau

• 25 Octobre 2006

• #11

Re : BeforePrint qui ne marche pas

Merci a vous 2 pour vos reponses, tout marche comme je veux et j'aurai appris ca!

 

Vote positif 0 Vote négatif