Ajout du code vba dans un classeur à partir d'un autre classeur

[moh67]

Bonjour,

Je travail avec deux classeur A et B. J'aimerais, à partir du classeur A, ajouter du code dans le classeur B en vba. Ce code est présent dans le classeur A.

Je fais donc :

projet.Activate
        With ActiveWorkbook.VBProject.VBComponents("Module2").CodeModule
            moduleTexte = .Lines(1, .CountOfLines)
        End With
        MsgBox moduleTexte 'Pour vérifier que le code a bien été copié
           
        Set wb = Workbooks(destination)
        wb.Activate
        wb.VBProject.VBComponents("ThisWorkbook").CodeModule.AddFromString moduleTexte
        wb.Save
        wb.Close

Le problème c'est qu'il n'y a rien dans le classeur B, aucun code n'a été ajouté.

Merci à vous

 

[DoubleZero]

Re : Ajout du code vba dans un classeur à partir d'un autre classeur

Bonjour à toutes et à tous,

Bienvenue sur XLD, moh67.

Cf. cette discussion.

A bientôt

 

[moh67]

Re : Ajout du code vba dans un classeur à partir d'un autre classeur

Bonjour et merci pour ta réponse,

Ce ne pas vraiment ce que je recherche. Cette méthode ce fait manuellement tandis que moi je souhaite le faire manuellement. De plus, j'aimerais que le code aille dans la section "ThisWorkbook".

Merci

 

[moh67]

Re : Ajout du code vba dans un classeur à partir d'un autre classeur

Alors ??????

 

[DoubleZero]

Re : Ajout du code vba dans un classeur à partir d'un autre classeur

Alors ??????

Bonjour...