Ajouter un code au module d'une feuille dans un nouveau classeur

Résolu
Henare Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
 Henare -
J'ai une macro dans un module général qui créer des classeurs 1 par 1.
J'aimerais mettre un code au module d'une feuille de chaque fichier.

J'aurais donc besoin d'un code "exemple" qui permet de mettre un code dans le module d'une feuille d'un autre classeur.

C'est clair ? Merci d'avance...

Henri
A voir également:

2 réponses

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Salut Michel.

Bien vu!
J'avais zappé ceci dans la demande : dans le module d'une feuille

Bonne journée et bon week
0
Henare
 
Merci Michel !! Ca fonctionne parfaitement... maintenant que j'ai cliqué "Accès approuvé au modèle d'objet du projet VBA" dans Developpeur/Sécurité des macros/Paramètre des macros/
Bonne journée... Henri
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

C'est clair ?
Très clair Henri...
Voici donc un exemple :
Attention!!! Nécessite de cocher la référence :
Microsoft Visual Basic for Applications Extensibility 5.3
Pour cela, depuis l'éditeur VBA, Outils/Références, cherchez et cochez...
Sub AjoutModule()
Dim Wbk As Workbook
Dim VBComp As VBComponent
    'création d'un nouveau classeur
    Set Wbk = Workbooks.Add
    'Création d'un module dans ce classeur
    Set VBComp = Wbk.VBProject.VBComponents.Add(vbext_ct_StdModule)
    'Insertion du code dans ce module
    With VBComp.CodeModule
        .InsertLines 1, "Sub Test"
        .InsertLines 2, "MsgBox ""Hello World !"""
        .InsertLines 3, "End Sub"
    End With
End Sub

-1