Comment copier du code en utilisant du code

greube

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

XLDnaute Occasionnel
Bonjour Greube, le forum,

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

Code:
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
 

Discussions similaires

Réponses
12
Affichages
217
Réponses
22
Affichages
691
Réponses
6
Affichages
362