Copier / coller une macro

Bonjour,

Quelqu'un saurait-il comment copier une macro d'un classeur "maître" vers un classeur créé plus tôt dans la macro ...

Je ne sais pas si c'est très clair lol

Concrètement, je lance un programme pour un suivi de note. Ce fichier contient plusieurs macros dont une qui créé un nouveau fichier Excel (du coup, il n'existait pas encore avant de lancer le fichier "maître").

Ce nouveau fichier vierge créé aura besoin de plusieurs macros pour fonctionner. Je comptais donc écrire ses macros dans le fichier maître et les transférer automatiquement au moment de la création du nouveau classeur.

Est-ce possible??

Merci

Hello

Voici une proposition

    Dim wb As Workbook
    Set wb = Workbooks.Add

    With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule
        moduleTexte = .Lines(1, .CountOfLines)
    End With
    moduleTexte = Replace(moduleTexte, "Option Explicit", "")

    wb.VBProject.VBComponents.Add (vbext_ct_StdModule)
    wb.VBProject.VBComponents("Module1").CodeModule.AddFromString moduleTexte

la macro vient
- Creer un classeur
- Copier le texte du "Module2"
- Ajouter un module "Module1" dans le nouveau classeur
- Coller le code

Merci de votre retour rapide.

Cependant après test, votre code m'indique une erreur au niveau de la 4eme ligne de code (with this workbook...)

L'erreur indique :

La méthode vbproject de l'objet workbook a échoué.

Savez vous pourquoi?

Merci

Hello,

LeLnom du module doit etre different,
Mais le plus simple est de partager le fichier

Re bonjour,

J'ai résolu la première erreur (la case faire confiance au vba n'était pas coché dans l'onglet sécurité des macros...)

Mais j'ai une nouvelle erreur lol sur l'avant dernière ligne:

erreur d'éxecution 440

la méthode add de l'objet vbcomponents a échoué

une idée?

Encore désolé :(

Rechercher des sujets similaires à "copier coller macro"