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.