Discussion :

[garheb]

Bonjour à tous,

Je cherche à, automatiquement virer les références marquées manquantes car un pc dans le service où je suis en stage a une référence qui est marquée manquante à chaque boot, la macro écrite ne fonctionne donc pas et la personne doit désactiver cette référence à chaque démarrage.

Bref j'ai trouvé ce code sur un site microsoft:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim vbProj As VBProject
 
    Dim chkRef As Reference
 
    Set vbProj = ActiveDocument.VBProject
 
    For Each chkRef In vbProj.References
 
      If chkRef.IsBroken Then
         Debug.Print chkRef.Name
      End If
 
    Next chkRef

Elle est donc sensée afficher lorsqu'une référence débloque. Le souci c'est que lorsque je lance la macro j'ai ce message:

Type défini par l'utilisateur non défini

Pour la ligne:

Code :

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

Dim vbProj As VBProject

J'ai donc cherché pourquoi ça me marquait ça, et à priori une référence n'est pas activé, mais dans la centaine de références disponibles... Je ne sais pas laquelle est nécessaire.

Je me demandais aussi si activer toutes les références était déconseillé ou non, est-ce que ça réduisait la stabilité de l'appli ou la rendait plus lente, car ça serait quand même plus pratique qu'être bloqué lorsqu'une référence n'est pas cochée.

Merci d'avance

[NoobProg]

Tiens regarde voir par ici, ça devrait répondre à ton souçi :

http://www.developpez.net/forums/d23...ion-reference/

[garheb]

Je l'ai adapté en écrivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim NbreRef As Integer
 
    NbreRef = ThisWorkbook.VBProject.References.Count
 
    For i = 1 To NbreRef
        If ThisWorkbook.VBProject.References(i).IsBroken Then
            Debug.Print "lol" & ThisWorkbook.VBProject.References(i).Name
        End If
        Debug.Print ThisWorkbook.VBProject.References(i).Name
Next i

Au début j'avais une erreur car la macro n'était pas sécurisée, donc j'ai coché "faire confiance à ce projet" et ça fonctionne maintenant

A la place du Debug.Print si la référence est "broken" il faut mettre

Code :

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

ReferenceActive = False

Pour la désactiver? Merci!