Incrementation de N°

[Boa73]

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

 

[@+Thierry]

Salut Boa et bonjour tout le monde

Vite fait en m'habillant avant de partir bosser.........

Non, tu ne peux pas faire autrement.... Il te faut une feuille (une petite cellule en fait) pour connaitre ce numéro! il n'y a pas d'autre solution. (ou alors un txt)

Ceci dit cette feuille peut-être placée dans ton "Perso.xls" together avec la macro d'ailleurs, et le tout peut-être caché... Et donc ton numéro pourra être inscrit dans chaque nouveau classeur....

Voilà c'est simple.
Bonne journée
@+Thierry