C
COLIN Pierre
Guest
Quelqu'un peut-il me dire comment peut-on empêcher l'impression dans un classeur ?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Byte
For i = 1 To 100
MsgBox 'Recopiez sur une feuille la phrase : ' & vbCrLf & _
'''La politesse n'est pas l'apanage des rois.''' & vbCrLf _
& 'Puis cliquez sur ok une fois la phrase recopiée.'
Next i
Cancel = True