Macro se lancant selon le nom du fichier

[MarieVT]

Bonjour,
Je suis en train de créer un formulaire qui initialement porte le nom "Formulaire_demande_CAO"?
Un bouton permet de l'enregistrer sous un autre nom lié à l'incrémentation d'un numéro (papa_1_maman), ce numéro ne doit plus s'incrémenter quand le document est renomé ainsi.
Le problème est que l'incrémentation ne s'enregistrer pas sur le document initial.

J'aimerai alors créer une macro d'incrémentation qui se lance uniquement quand le nom de mon fichier est "Formulaire_demande_CAO", dés son ouverture et qu'il s'enregistre sur la version initieal et pas sous un autre nom...

Voici le code de l'incrémentation: (désolé je ne trouve pas comment le mettre sous forme de code)

Sub Incrementation()

With Sheets("Tables").Cells(40, 2)
.Value = .Value + 1
End With

End Sub


Je vous remercie ! ! !

 

[pierrejean]

Bonjour Marie
Vois si tu peux adapter ceci
Private Sub Workbook_Open()
If ThisWorkbook.Name = "testb.xlsm" Then Sheets("Feuil1").Range("A1") = Sheets("Feuil1").Range("A1") + 1
End Sub
A mettre bien sur dans Thisworkbook

 

[MarieVT]

Je vous remercie beaucoup, c'est parfait!
Bonne journée