Incrementation du numero apres impression

[sevy1]

Bonjour à tous
J'ai un classeur qui a 7 feuilles. Les impressions sont faites sur la feuille 1 et 6 alors je souhaiterais que lorsque je lance une impression d'une des feuille que le numero de la feuille s'incremente voici un exemple de code mais celà ne fonctionne pas

Private Sub Workbook_BeforePrint(Cancel As Boolean)

If ActiveSheet.Sheets(1) Then
Sheets(1).[J1] = Sheets(1).[J1] + 1
End If
If ActiveSheet.Sheets(6) Then
Sheets(6).[K1] = Sheets(6).[K1] + 1
End If
End Sub

Merci d'avance pour vos contributions

 

[phlaurent55]

Re : Incrementation du numero apres impression

Bonjour sevy,

avec ce code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Index = 1 Then
Sheets(1).[J1] = Sheets(1).[J1] + 1
End If
If ActiveSheet.Index = 6 Then
Sheets(6).[K1] = Sheets(6).[K1] + 1
End If
End Sub

à+
Philippe

 

[sevy1]

Re : Incrementation du numero apres impression

Bonjour
Merci ça marche