Copie module d'un fichier à un autre par Visual Basic
Bonjour
Je souhaite copier un module d'un fichier A (qui posséde le module à copier "SentMacro") vers un fichier B dont je récupere le nom par une variable ici dans l'exemple tgt
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Sub envoimacro()
' le module "sentMacro" que je souhaite copier est déja présent dans le fichier courant
tgt = ThisWorkbook.Sheets("Feuil1").Cells(1, 1).Value ' nom du fichier cible
For Each vbComp In Workbooks(tgt).VBProject.VBComponents
If vbComp.Name = "ThisWorkbook" Then
vbComp.codemodule.DeleteLines 1, vbComp.codemodule.CountOfLines
With ThisWorkbook.VBProject.VBComponents("SentMacro").codemodule
vbComp.codemodule.AddFromString .Lines(1, .CountOfLines)
End With
End If
Next vbComp
End Sub |
Ce code fonctionnait très bien avant mais je comprends plus pourquoi il bloque sur
Code:
For Each vbComp In Workbooks(tgt).VBProject.VBComponents
Pouvez vous m'aider?
Merci d'avance pour votre aide
Cordialement
Guillaume
