A placer dans Thisworkbook (avec Alt +F11)
Private Sub Workbook_Open()
Dim cells As Range
Range("A1").Value = Range("a1").Value + 1
End Sub
Bien entendu c'est la cellule A1 qui va s'incrémenter.
Indique la cellule de ton choix
Oubli du 2°
Private Sub Workbook_BeforePrint(Cancel As Boolean) pour incrémenter avant l'impression. Code à mettre cette fois dans la feuille de la feuille de ton choix.
A+ GD
J'avais oublié mes codes !