Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1344 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2055664
mmarle
Posté le 10-02-2011 à 08:37:06  profilanswer
 

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)
  2. Cancel = True
  3. Dim ListRef As Object
  4. Dim Ref As Reference
  5. Set ListRef = Application.ThisWorkbook.VBProject.References
  6. For Each Ref In ListRef
  7.     If Ref.IsBroken = False Then
  8.         MsgBox Ref.Name
  9.     Else
  10.         ListRef.Remove Ref
  11.     End If
  12. Next Ref
  13. 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
mood
Publicité
Posté le 10-02-2011 à 08:37:06  profilanswer
 

n°2055690
kiki29
Posté le 10-02-2011 à 10:12:18  profilanswer
 

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
n°2055961
mmarle
Posté le 11-02-2011 à 08:32:04  profilanswer
 

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.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
select : deux références sur une même tablequestion sur les références
Cas où les références remplacent mal les pointeurs ?References et objets, bonne pratique
Petit problème avec un hash, des tableaux et des référencesEXCEL - références dans une sélection de plusieurs plages
[VBA] Explications des références (librairies) -> RESOLUoracle : create table avec plusieurs références facultatives
Extensions Opengl ManquantesZend certification / livres de références
Plus de sujets relatifs à : [VBA Excel] Références manquantes [Résolu]


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR