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 :
Le problème c'est qu'il n'y a rien dans le classeur B, aucun code n'a été ajouté.
Merci à vous
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 :
Code:
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.CloseLe problème c'est qu'il n'y a rien dans le classeur B, aucun code n'a été ajouté.
Merci à vous