Ajouter du code dans un classeur à partir d'un autre code

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

Alors ? Personne ?

Up !!!!!!

Rechercher des sujets similaires à "ajouter code classeur partir"