Ajouter un code au module d'une feuille dans un nouveau classeur [Résolu/Fermé]

Signaler
Messages postés
1
Date d'inscription
jeudi 28 mai 2015
Statut
Membre
Dernière intervention
28 mai 2015
-
 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

2 réponses

Messages postés
16433
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
15 avril 2021
3 163
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 594
Salut Michel.

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

Bonne journée et bon week
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
Messages postés
12251
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2021
2 594
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