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

Résolu
Henare Messages postés 1 Statut Membre -  
 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

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour

    Un tuto ici:
    https://silkyroad.developpez.com/VBA/VisualBasicEditor/
    2
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Salut Michel.

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

      Bonne journée et bon week
      0
    2. 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
  2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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