[OK]Incrementer un numéro à l'ouverture

[boa73]

Bonjour à tous,

Je recherche la formule qui permet d'incrementer un numero a chaque ouverture maois 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

[philou]

Salut,

==> ThisWorkbook

Private Sub Workbook_Open()

Dim compt As Integer
compt = Range("H1").Value
Range("H1").Value = compt + 1
End Sub


@+

[boa73]

Merci pour la réponse, mais cette vba ne fonctionne pas car si on n'ouvre le classeur et qu'on le ferme sans enregistrer elle incremente quand meme un numéro.
Il faut qu'elle ne l'incremente que si on n'enregistre le document.
J'ai trouvé le vba grace à  un internaute il faut passer par un classeur modèle et nommer une cellule.

Merci quand meme de votre réponse
Boa73