Fonction BeforePrint

Bonjour,

Un usagé m'a demandé de créer une macro qui permet de valider l'information d'une cellule avant de lancer l'impression. Si la valeur dans la cellule egale zéro, on doit afficher un message a l'écran et ne pas imprimer le document, autrement, on fait comme si de rien n'était. J'ai vu que la fonctione BeforePrint devrait bien repondre a mes besoins mais on dirait que excel ne voit pas ce code. Pour faire un test, j'ai créé un bouton IMPRIMER et j'ai placer le code dans la fonction Click du bouton et ca fonctionne bien. Voici ce que j'ai (BeforePrint)...

Private Sub Worksheet_BeforePrint(cancel As Boolean)

Dim Valeur As Integer

Valeur = sheets("Feuille1").Range("D16")

If ValeurDesign = "0" Then

MsgBox "Valeur a Zéro, Impression impossible"

cancel = True

Else

Cancel-false

End If

End Sub

Est-ce qu'il y aurait une erreur dans ce bout de code?

Est-ce que la fonction BeforePrint fonctionne avec Excel2007. Est-ce que je dois installer des "modules" supplémentaire?

Merci!

Oubliez cela... On doit placer l'évenement BoforePrint sur le Workbook et non sur WorkSheet...