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

Question

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

michel_m · Accepted Answer

Bonjour

Un tuto ici:
https://silkyroad.developpez.com/VBA/VisualBasicEditor/

pijaku · Answer

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

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

2 réponses

Discussions similaires