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

Résolu/Fermé
Henare
Messages postés
1
Date d'inscription
jeudi 28 mai 2015
Statut
Membre
Dernière intervention
28 mai 2015
- 28 mai 2015 à 16:44
 Henare - 2 juin 2015 à 07:50
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

michel_m
Messages postés
16574
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
3 août 2022
3 278
29 mai 2015 à 10:26
2
pijaku
Messages postés
12259
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
9 août 2022
2 701
29 mai 2015 à 10:31
Salut Michel.

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

Bonne journée et bon week
0
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
12259
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
9 août 2022
2 701
29 mai 2015 à 10:29
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