Discussion :

[Bugzy1963]

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:

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 ??

[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.

[Invité]

Bonjour,

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

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
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

[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:

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")

[Invité]

Bonsoir,
En fet vba index les module de même nom!

[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

[Invité]

Une alternative

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

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
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

[Invité]

Doevents après remove?

[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.