Copier le code VBA d'une feuille à une autre avec une macro

Bonsoir à tous !
J'ai créé un application qui génère une nouvelle feuille automatiquement au début de chaque mois. Ce que je souhaite c'est que le code ci-dessous fasse partie du code de la feuille lors de sa création :

Code:

---

1 2 3

Private Sub Worksheet_Activate() [a1].Select End Sub

---

Merci de votre aide !

Bonjour,

pour faire cela, il te faudra utiliser VBComponents.

Un bon tutoriel ici : http://silkyroad.developpez.com/VBA/VisualBasicEditor/

J'obtiens un run time error 1024... Pourtant j'ai bien coché la réference Microsoft Visual Basic for Applications Extensibility 5.3 dans l'editeur de VBA... Voici le bout de code que j'utilise pour essayer de rajouter une macro (NNF est une variable publique qui donne le nom aux Sheets créés) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub ADD_Macro() Dim y As Integer   With ActiveWorkbook.VBProject.VBComponents(NNF).CodeModule y = .CountOfLines .InsertLines y + 1, "Private Sub Worksheet_Activate()" .InsertLines y + 2, "[a1].Select" .InsertLines y + 3, "End Sub" End With End Sub

---

Je viens de trouver la cause de cet erreur de run time. Cocher la case pour activer la référence ne suffit pas. Il faut, en plus, aller sur excel (dans le classeur et pas dans l'editeur) et selectionner Tools/Macro/Security et cliquer sur l'onglet Trusted Publishers. Une fois dans cet onglet, il faut cocher la casse Trust to access Visual Basic Projet (ça serait pas mal de rajouter cette info sur le tuto de SilkyRoad sur le Visual Basic Editor).

J'oubliais de dire que le code fonctionne correctement !:D

Merci à jfontaine :ccool: de m'avoir mis sur les bons rails !

Et voici le module fini (maintenant la macro prend en charge les feuilles si le "codename" et le "name" des feuilles n'est pas le même) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub ADD_Macro() Dim y As Integer Dim z As Integer   For z = 1 To Worksheets.Count If Worksheets(z).Name = NNF Then With ActiveWorkbook.VBProject.VBComponents(Worksheets(z).CodeName).CodeModule y = .CountOfLines .InsertLines y + 1, "Private Sub Worksheet_Activate()" .InsertLines y + 2, "[a1].Select" .InsertLines y + 3, "End Sub" End With End If Next End Sub

---