Incrémenter une cellule

Bonjour,
Je découvre "Visual basic" avec Excel 2007.

Je souhaite faire incrémenter la valeur d'une cellule que j'ai nommée "Incrément" de +1 après chaque enregistrement de mon fichier.
J'arrive à inscrire le nom de ma cellule "Bord_0001" que je souhaite faire évoluer à "Bord_0002", "Bord_0003" etc via la commande suivante:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Incrémentation() ' 'Macro le 23/03/2010 par Toto ' ' vPlageNom = Range("incrément").End(xlDown).Row ActiveWorkbook.Names.Add Name:="Bord_0001", RefersToR1C1:=vPlageNom   End Sub

---

mais je n'arrive pas à l'incrémenter automatiquement après l'enregistrement.

S'il vous faut plus de renseignements n'hésités pas à me le faire savoir.

Merci d'avance pour votre aide.

Bonjour,

Il existe un évènement "BeforeSave" que tu trouveras dans Thisworkbook
Comme son nom l'indique il exécute le code juste avant l'enregistrement du fichier

je n'y arrive pas mieux avec la réponse que j'ai eu :cry: et je voudrais savoir s'il est possible d'incrémenter la cellule à l'ouverture de mon fichier.

merci.

heu
je pense que tu compliques un peu
utilise les macro evenementielle du module workbook
je te le fais de tete, flemme de regarder

Code:

---

1 2 3 4

Sub Workbook_BeforeSave range A1 = range A1 + 1 End Sub

---