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