Erreur 1004 sur REMOVE un module

Version imprimable

14/09/2017, 03h36
Bugzy1963

Erreur 1004 sur REMOVE un module

Bonjour,

À l'ouverture de mon Workbook, j'utilise Workbook_Open dans l'objet ThisWorkbook pour initialiser des informations.

Je veux aussi prendre l'occasion pour rafraîchir le seul fichier module.bas existant au projet.

J'utilise donc la séquence suivante:

Citation:

Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent

Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("Ensemble.bas")
VBProj.VBComponents.Remove VBComp

Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents.Add(vbext_ct_StdModule)
VBComp.Name = "P:\User\Modules\Ensemble.bas"

A la ligne .Remove je reçois une erreur 1004 avec mention l'accès par programme au projet Visual Basic n'est pas fiable et le fichier est toujours en place.

Une idée ??
14/09/2017, 07h19
pijaku

Bonjour,

Il faut cocher la case : Accès approuvé au modèle d'objet VBA.
Pour cela :
cliquer sur l'onglet développeur/sécurité des macros/Paramètres des macros.

Citation:

Envoyé par Bugzy1963

Bonjour,

Etes-vous certain du nom de votre module ? Pour voir :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub ListerLesModulesDuProjet()
 
' Nécessite de cocher la référence Microsoft Visual Basic For Applications Extensibility XXX
 
Dim VBCompListe As VBComponents
Dim I As Integer
 
    Set VBCompListe = ActiveWorkbook.VBProject.VBComponents
    For I = 1 To VBCompListe.Count
        Select Case VBCompListe(I).Type
            Case 1, 3
                MsgBox VBCompListe(I).Name & Chr(10) & VBCompListe(I).Type
        End Select
    Next I
    Set VBCompListe = Nothing
 
End Sub

14/09/2017, 17h34
Bugzy1963

Merci Messieurs

vos deux commentaires ont réglé les problèmes rencontrés.

Cependant, j'ai une autre situation.

Lorsque j'importe le module à partir de mon Path, le nom du module se voit imputé le suffixe 1 à la fini

Avant le .Remove mon module se nomme Ensemble
Après le .Import le module se nomme Ensemble1

C'est comme si le module est toujours en place lorsque l'importation se fait, il y a une indexation.

j'ai fait un test et j'importe vraiment le module qui est sur le serveur.

voici mon code:

Citation:

Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent

Set VBProj = ActiveWorkbook.VBProject
Set VBComp = VBProj.VBComponents("Ensemble")
VBProj.VBComponents.Remove VBComp

VBProj.VBComponents.Import Filename:=("P:\User\Modules\Ensemble.bas")
14/09/2017, 17h43
Invité

Bonsoir,
En fet vba index les module de même nom!
14/09/2017, 17h43
joe.levrai

Bonjour,

en enregistrant le classeur entre le .Remove et le .Import peut-être ?

sinon, il faudrait tenter de forcer le renommage du module ... voir fermer et rouvrir le classeur

Citation:

Envoyé par Bugzy1963

Une alternative

Nb : Remplacer cette ligne ~~For I = 1 To VBCompListe.Count~~ par For I = VBCompListe.Count to 1 Step -1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub SupprimerLeModuleEnsemble()
 
Dim VBCompListe As VBComponents
Dim I As Integer
 
    Set VBCompListe = ActiveWorkbook.VBProject.VBComponents
 
    For I =  VBCompListe.Count to 1 Step -1
        Select Case VBCompListe(I).Type
            Case 1, 3
            If Mid(VBCompListe(I).Name, 1, Len("Ensemble")) = "Ensemble" Then
                VBCompListe.Remove VBCompListe(I)
                'MsgBox VBCompListe(I).Name & Chr(10) & VBCompListe(I).Type
            End If
        End Select
    Next I
    Set VBCompListe = Nothing
 
End Sub

14/09/2017, 17h51
Invité

Doevents après remove?
14/09/2017, 22h09
Bugzy1963

Rebonjour

La seule façons avec laquelle j'ai réussi, c'est de modifier le nom avant d'exécuter le .Remove et .Import.

Ainsi mon module dans le Workbook a un index +1 Vs le fichier sur le serveur.

J'ai lu qu'il était impossible de modifier le nom d'un module lorsque celui-ci est sollicité à l'intérieur d'une même SUB.
C'est pour cela que je change le nom avant le .Remove

Merci pour votre aide.