Bonjour,
Je rencontre un problème avec la gestion de Références, surtout lorsqu'il s'agit de celles qui sont manquantes.
en effet, malgrès les multiples recherches sur le net, je ne trouve pas de solution.
Mon environnement:
- Office 2003
- Excel 11.0
Le code ci dessous plante et je ne comprend pas pourquoi!
Voici le code:
Code :
- Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
- Cancel = True
- Dim ListRef As Object
- Dim Ref As Reference
- Set ListRef = Application.ThisWorkbook.VBProject.References
- For Each Ref In ListRef
- If Ref.IsBroken = False Then
- MsgBox Ref.Name
- Else
- ListRef.Remove Ref
- End If
- Next Ref
- End Sub
|
Message erreur:
erreur d'exécution '-214731 9779 (8002801d)':
Bibliothèque d'objets non enregistrée.
sur
Pourtant j'ai coché au préalable la référence "Microsoft Visual Basic for Applications Extensibility 5.3", et coché "Faire confiance au projet VBA".
Que Puis-je faire? Merci.
Message édité par mmarle le 25-02-2011 à 22:43:13