bonjour,
cette macro (à placer dans le module ThisWorkbook) agit sur la Feuil 1, envoie un message et annule l'impression
Code :
- Private Sub Workbook_BeforePrint(Cancel As Boolean)
- Select Case ActiveSheet.Index
- Case 1
- MsgBox "Coucou"
- Cancel = True 'pour annuler l'impression
- End Select
- End Sub
|
Pour ne pas annuler l'impression, supprimer la ligne Cancel = True
A+