[XL-2003] Copier le code VBA d'une feuille à une autre avec une macro [Résolu]

[Pimpampoum]

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 !

[jfontaine]

Bonjour,

pour faire cela, il te faudra utiliser VBComponents.

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

[Pimpampoum]

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

[Pimpampoum]

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 !

Merci à jfontaine 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