En fait, j'ai crée un fichier où figure un n° dans la cellule "numéro" qui doit à chaque ouverture s'incrémenter de 1, ma macro fonctionne bien, sauf que je souhaiterais qu'une fois que l'on a "enregistrer sous" avec un nouveau nom, que le n° reste identique et ne s'augmente plus si on ouvre à nouveau ce fichier.
Voici ma macro, que faut-il changer pour que cela fonctionne?
Private Sub Workbook_Open()
ActiveSheet.Unprotect Password:="alertequalite"
[numéro] = [numéro] + 1
ThisWorkbook.Save
ActiveSheet.Protect Password:="alertequalite"
End Sub
Merci, mais j'ai essayé cette formule et ça ne fonctionne pas , le n° ne s'incrémente plus. Dans la cellule G11 j'ai inscrit le nom du classeur de base (alerte qualité 2):
Private Sub Workbook_Open()
ActiveSheet.Unprotect Password:="alertequalite"
If ThisWorkbook.Name = [G11] Then [numéro] = [numéro] + 1
ThisWorkbook.Save
ActiveSheet.Protect Password:="alertequalite"
End Sub