Discussion :

[djoumusic]

Bonjour,
j'aimerai pouvoir compter le nombre d'impression d'une sheets,

en fait lorsque j'ecris mon code,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if sheets("feuil1").printout then
range("a1")=range("a1") + 1
end if

en mode pas a pas , il m'imprime la feuille, et compte bien,
par contre lorsque je clique sur l'icone de l'imprimante,
ca ne fait rien,
et je ne veux pas faire de bouton imprimer..

j'ai essayer de placer le code, sur la feuille, ou dans thisworkbook,
toujours rien...
comment faudrait il faire...?

merci

[sabzzz]

bonjour,

tu peut utilise l'événement BeforePrint,
ce code est à copier sur la page thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Feuil1" Then Range("A1") = Range("A1") + 1
End Sub

isabelle