[VBA WORD] Suppression de module [Résolu]

[mdriesbach]

Bonjour.

Je reprends une série de documents Word dans lesquels se trouve le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Kill_module()
Dim i As Integer
Dim nom_module, typemodule As String
 
For i = 1 To ActiveDocument.VBProject.VBComponents.Count
    nom_module = ActiveDocument.VBProject.VBComponents.Item(i).Name
    If nom_module = p1_import_module Then
        ActiveDocument.VBProject.VBComponents.Remove ActiveDocument.VBProject.VBComponents.Item(p1_import_module)
        Exit For
    End If
 
Next i
 
End Sub

Sur certaines machines, la ligne "For i = 1 To ActiveDocument.VBProject.VBComponents.Count" provoque l'erreur d'exécution '6068' :
"L'accès programmatique à Visual Basic n'est pas approuvé."

J'ai d'abord pensé à une différence de version de Word mais après vérification, il s'avère que les machines ont toutes la même configuration :
Word : 2002 SP3
Win : XP Pro SP1
VB : 6.3

J'ai alors fait quelques recherches et j'ai appris que cette erreur se produisait parfois lors de l'accès à l'objet VBProject dans un document protégé. J'ai essayé de déprotéger avant l'accès puis de reprotéger après mais ça ne change rien.

Je ne sais plus quoi essayer ...
Avez-vous une idée ?

D'avance merci.
Cordialement,

Mathieu Driesbach.

[ouskel'n'or]

L'idée ? Un niveau de sécurité différent selon le poste (?)

[mdriesbach]

C'est également une idée que j'ai eu.
Les profils utilisateurs sont pourtant des profils standards et doivent être identiques ...
Je cherche dans cette direction dans les options de Word ...
Je vous tiens au courant si j'ai plus d'information.

[mdriesbach]

Bonjour.

C'est effectivement au niveau de la gestion de la sécurité par Word que le problème se situe.

Pour être exact, il faut cocher la case 'Faire confiance au projet Visual Basic' située sous :
Menu Outils > Macro > Sécurité, onglet Sources fiables.

Encore une fois merci à tous les participants de développez et leur aide inestimable.

Cordialement,

Mathieu Driesbach.