B
Boa73
Guest
Bonjour à tous,
Je recherche la formule qui permet d'incrementer un
numero dans une cellule a chaque ouverture, mais pas celle ci dessous :
Sub Compteur()
Dim compt As Integer
compt = Range("H1").Value
Range("H1").Value = compt + 1
End Sub
car j'ai un document vierge au départ et à chaque fois
que je l'enregistre je change son nom et je veux que
l'incrementation se fasse sous le vierge hors là vu que
le vierge est renommé avant d'etre enregistrer quand on
le réouvre le numéro ne s'incremente pas.
Merci d'avance pour votre aide,
Cordialement
boa73
Je recherche la formule qui permet d'incrementer un
numero dans une cellule a chaque ouverture, mais pas celle ci dessous :
Sub Compteur()
Dim compt As Integer
compt = Range("H1").Value
Range("H1").Value = compt + 1
End Sub
car j'ai un document vierge au départ et à chaque fois
que je l'enregistre je change son nom et je veux que
l'incrementation se fasse sous le vierge hors là vu que
le vierge est renommé avant d'etre enregistrer quand on
le réouvre le numéro ne s'incremente pas.
Merci d'avance pour votre aide,
Cordialement
boa73