Impossible d'importer un module en VBA

[Arpette]

Bonsoir à toutes et à tous,
j'ai un message d'erreur sur la ligne #Set VBProj = wb.VBProject# Erreur 1004 la méthode a échoué.
PS : je ne vois plus les balises

Voici le code complet :
Sub imp_module()
Dim nf%, fbas$, f$
Dim wb As Workbook
Dim i&
Dim VBProj As Object
Dim oldMod As Object

Rep = "F:\Trames\Module\"
fbas = Rep & "Module3.bas"
Application.ScreenUpdating = False
Application.EnableEvents = False

f = Dir(Rep & "*.xls")
Do While f <> "" 'boucle sur les fichiers du répertoire
If f <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(Rep & f) 'ouvre le fichier
Set VBProj = wb.VBProject
Set oldMod = ActiveWorkbook.VBProject.VBComponents("module3")
ActiveWorkbook.VBProject.VBComponents.Remove oldMod
Application.VBE.ActiveVBProject.VBComponents.Import (fbas)
On Error GoTo 0
Set VBProj = Nothing
Set CodeMod = Nothing
wb.Close True
End If
f = Dir()
Loop

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

Merci de votre aide
@+

 

[job75]

Bonjour Arpette,

oui je veux exécuter le module 3 de tous les fichiers.

C'est comme si j'avais craché en l'air...

Et le code que vous ne voulez plus exécuter eh bien vous le mettez en commentaires...

A+

 

[Arpette]

Oups, pardon Job je n'avais pas vue la ligne

Merci

 

[job75]

Re,

Noter aussi qu'au lieu de "Application.Run" on peut écrire simplement "Run".

A+

 

[Compte Supprimé 979]

Bonjour à tous, bonjour @job75

Je déterre ce sujet de 2016, désolé, mais je rencontre le problème avec O365

Comme je veux importer du code dans ThisWorkbook, je ne peux pas utiliser l'import mais AddFromFile

Voici un extrait de mon code
La variable sPathCodes est OK
Le fichier existe bien
J'ai bien activé : Accès approuvé au code VBA

    ' Ajouter le code de ThisWorkbook
    With Wbk.VBProject.VBComponents("ThisWorkbook")
      .CodeModule.AddFromFile (sPathCodes & "CodeThisWBK.txt")
      If Err.Number <> 0 Then
        MsgBox "Impossible de trouver le fichier :" & vbCr _
        & sPathCodes & "CodeThisWBK.txt", vbCritical, "OUPS..."
        Err.Clear
        Exit Sub
      End If
    End With

En revanche j'ai l'erreur 1004 une idée ?

Merci d'avance.

 

[MJ13]

Bonjour à tous

Bruno: Dans les options, as tu bien activé "Accès approuvé au code VBA" ?

 

[Compte Supprimé 979]

Salut MJ13 et merci,

Bruno: Dans les options, as tu bien activé "Accès approuvé au code VBA" ?

Oui désolé, j'ai oublié de le noter, j'ai bien activé cette option

 

[job75]

Bonsoir Bruno, Michel,

Chez moi sur Excel 2019 aucun problème pour alimenter le ThisWorkbook via AddFromFile.

A+

 

[Compte Supprimé 979]

Bonsoir job75 et merci

Bonsoir Bruno, Michel,
Chez moi sur Excel 2019 aucun problème pour alimenter le ThisWorkbook via AddFromFile.
A+

Certainement une sécurité quelconque installée par notre DSI, il faut effectivement que je teste chez moi

Bonne soirée

 

[MJ13]

Bonjour à tous

Sinon, j'ai une vieille routine qui fonctionne, mais il faudra tester.

Sub A_A_Copy_VB_Img_In_Thisworkbook()
'attention sur le fichier .txt, rajouter une ligne au début vierge, sinon, il manque une ligne.
'On Error Resume Next
Workbooks(ActiveWorkbook.Name).Activate
DoEvents
Workbooks(ActiveWorkbook.Name).Activate
iajcode = Workbooks(ActiveWorkbook.Name).VBProject.VBComponents("ThisWorkbook").CodeModule.CountOfLines
If iajcode > 0 Then Exit Sub
Close
'Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
Open "C:\_VBA\Test.txt" For Input As #1
i = 1
With ActiveWorkbook.VBProject.VBComponents("Thisworkbook").CodeModule
Line Input #1, ligne$
While EOF(1) <> True
Line Input #1, ligne$
.InsertLines i, ligne$: i = i + 1
Wend
End With
Close
End Sub