Comment copier du code en utilisant du code

[greube]

Bonjour à tous,

voici mon souci:

J'ai crée un code pour créer une copie d'une feuille dans un un même classeur sans copier le code vba préexistant.

Maintenant mon souci je voudrais associer un code prédéfini à cette nouvelle feuille. Comment faire?

Merci d'avance.

 

[soft]

Bonjour Greube, le forum,

Voici un exemple pour écrire dans le code de Feuil1 :

Sub Test()
    Dim M As VBComponent
    For Each M In Application.VBE.ActiveVBProject.VBComponents
        If M.Name = 'Feuil1' Then
            M.CodeModule.AddFromString ''écrit le code'
            Exit For
        End If
    Next M
End Sub