[VBA Excel] Références manquantes [Résolu]

Références manquantes [Résolu] [VBA Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 10-02-2011 à 08:37:06    

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 :
  1. Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  3. Cancel = True
  5. Dim ListRef As Object
  6. Dim Ref As Reference
  8. Set ListRef = Application.ThisWorkbook.VBProject.References
  10. For Each Ref In ListRef
  11.     If Ref.IsBroken = False Then
  12.         MsgBox Ref.Name
  13.     Else
  14.         ListRef.Remove Ref
  15.     End If
  16. Next Ref
  18. End Sub


 
 
Message erreur:
 
erreur d'exécution '-214731 9779 (8002801d)':
Bibliothèque d'objets non enregistrée.
 
sur  
 
 

Code :
  1. ListRef.Remove Ref


 
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
Reply

Marsh Posté le 10-02-2011 à 08:37:06   

Reply

Marsh Posté le 10-02-2011 à 10:12:18    

Salut,cela semble fonctionner ( Excel 10 )
à mon avis ce genre de test serait à placer dans Private Sub Workbook_Open()
 
Voir sur http://www.google.fr/#hl=fr&source [...] c135f112cb peut-être


Message édité par kiki29 le 10-02-2011 à 10:33:30
Reply

Marsh Posté le 11-02-2011 à 08:32:04    

Merci kiki29,
 
J'ai placé la routine dans Private Sub Workbook_Open() et Oh! miracle ça fonctionne!
 
A terme je l'aurais sans doute installé à cet endroit mais pour mes tests il était plus simple (à contario) de la placer dans Private Sub Workbook_SheetBeforeRightClick, afin d'éviter de devoir sauvegarder, fermer et réouvrir le fichier. Finalement c'était "tout con" comme bien souvent.
 
Merci encore kiki29.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed