Discussion :

[GuiomNantes]

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

[EricDgn]

Bonjour,

Eventuellement la réponse est dans ce post:

As-tu coché "Accès approuvé au modèle d'objet du projet VBA" dans Options\Centre de gestion de la confidentialité\paramètres\paramètres des macros? (pour Excel 2010)

Pour moi, cela a résolu le problème.
Cordialement.

[GuiomNantes]

Cool merci beaucoup