incrementation d'1 nombre

[jean]

bonjour
peut-on incrémenter un nombre dans une cellule à chaque ouverture ou impression du fichier...??
par avance merci

 

[Gérard Dezamis]

Bonjour Jean

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

@+


GD

 

[Gérard Dezamis]

Re jean

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 !