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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
 For Each vbComp In Workbooks(tgt).VBProject.VBComponents
Pouvez vous m'aider?

Merci d'avance pour votre aide

Cordialement

Guillaume