Discussion :

[zenixNT]

Bonjour,

Je suis à la recherche d'une solution (pour changer) concernant un problème de gestion des références.
J'ai un document Word contenant des références, dont une est MANQUANTE. J'aimerai automatiser le traitement de suppression de cette référence qui ne sert à rien dans mon code (System Monitor Control) puisque je ne fais pas de monitoring sur ce genre de document.
J'ai trouvé beaucoup de solutions pour supprimer les réferences, notamment en utilisant le lien suivant, la boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
For Each chkRef In vbProj.References
 
      ' If the reference is broken, send the name to the Immediate Window.
      If chkRef.IsBroken Then
         vbProj.References.Remove chkRef
      End If
 
   Next

Ce code ne fonctionne pas car la référence ne peut pas être "atteinte" car elle n'est pas renseignée dans le registre (effectivement le GUID est absent du registre)... Du coup impossible de supprimer cette référence du projet puisqu'elle est absente du registre...

Y a-t-il quelqu'un qui aurait une idée sur la méthode de suppression d'une référence absente du registre ?

Je vous remercie beaucoup pour votre réponse et vous souhaite une bonne journée!

zenixNT

[JOHN14]

Mieux vaut tard que jamais...

Voici la réponse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    For Each oRef In ThisDocument.VBProject.References
        ' On supprime toutes les références MANQUANTES
        If oRef.IsBroken Then ThisDocument.VBProject.References.Remove oRef   'si cassée, on supprime !
    Next oRef

Cdt

[Invité]

Bonsoir,
Débarrasses toi définitivement de la référence word et utilises CreateObject

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim word as Object
Set word=CreateObject("word.application")