Discussion :

[jojo86]

Bonjour,
J'ai trouvé un code qui permet de décocher les références marquées manquantes dans un projet.
J'ai une erreur d'execution du code à la ligne :

Code :

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

ThisWorkbook.VBProject.References.Remove theRef

L'erreur est : Bibliothèque d'objets non enregistrée
Voici le code complet :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub References_RemoveMissing()
    Dim theRef As Variant, i As Long
    Dim x As Object
    For i = ThisWorkbook.VBProject.References.Count To 1 Step -1
        Set theRef = ThisWorkbook.VBProject.References.Item(i)
        If theRef.isbroken = True Then
            ThisWorkbook.VBProject.References.Remove theRef
        End If
    Next i
End Sub

Je ne comprend pas pourquoi ça bug...
Merci de votre aide.

[mercatog]

Bonjour,
j'ai testé ce code sans problème

Code :

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

1
2
3
4
5
6
7
8
'Nécessite de cocher au préalable la référence Miscrosoft Visual Basic Extensibility
Sub References_RemoveMissing()
Dim theRef As Reference
 
For Each theRef In ThisWorkbook.VBProject.References
    If theRef.isbroken = True Then ThisWorkbook.VBProject.References.Remove theRef
Next theRef
End Sub