Bonjour à tous,

après avoir cherché sur le forum et trouvé un bout de code qui aurait pu m'aider il se trouve que non et je suis perplexe...

J'ai un problème de bibliothèque manquante par rapport à Visio et je voulais les décocher automatiquement à l'ouverture de mon application.

J'ai donc utilisé le code suivant qui se déclenche à l'ouverture de l'application:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub removeRef
Dim Ref As Reference
 
For Each Ref In ThisWorkbook.VBProject.References
    If Ref.IsBroken Then ThisWorkbook.VBProject.References.Remove Ref
Next Ref
End Sub
Mais quand j’exécute pas à pas au niveau de

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Then ThisWorkbook.VBProject.References.Remove Ref
VBA s'arrete et me met le message suivant:

Run-time error '-2147319779 (8002801d)'
automation error
Library not registred
Est ce quelqu'un a une idée pour me sortir de là?

Merci d'avance pour votre aide