COMPTEUR "FIXE"

[Sophie1212]

Bonjour à tous,
je souhaiterai réaliser un fichier avec un compteur 'fixe', je m'explique :
J'aurai un modèle XLT qui lui seul incrémenterait le compteur de +1 à chaque ouverture et les fichiers enregistrés à partir du modèle ne s'incrémente pas de +1 à l'ouverture.
J'espère que c'est suffisamment clair et que vous pourrez m'aider !!!
Merci d'avance

 

[Gabriel]

Salut j'ai inventé cette macro mais pour compter de feuilles.
essai de l'adapter a ton probleme.

Sub Create_Rename_Counter_Sheets()
Sheets('PROJECT Descript & Hist').Select
Range('G7') = Sheets.Count - 7
Sheets('PROJECT Descript & Hist').Select
Sheets('PROJECT Descript & Hist').Activate
Range('G7') = Range('G7')
Set compteur = Worksheets(2).Cells(7, 7)
compteur = compteur + 1
S = compteur + 6
Dim Part As String
Part = InputBox('Part Name', 'Part')
Sheets('Template').Select
Sheets('Template').Copy Before:=Sheets(S)
Worksheets(S).Range('D5').Value = Part
Worksheets(S).Select
Worksheets(S).Name = Part
Worksheets(2).Select
Range('G7') = compteur
Worksheets(S).Select
End Sub