Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro se lancant selon le nom du fichier

MarieVT

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…