VBA : liste de toutes les références disponibles (activées ou non)

[dionys0s]

Bonjour le forum,

tout est dans le titre. J'aurais aimé savoir s'il était possible d'obtenir la liste de toutes les références disponibles.

Lorsqu'on parcourt les références d'un projet, on n'obtient malheureusement que celles qui sont déjà activées.

D'avance merci pour votre aide

 

[CISCO]

Re : VBA : liste de toutes les références disponibles (activées ou non)

Bonjour

Pourrais tu être plus précis, donner davantage de détails, mettre un petit fichier en pièce jointe ?

@ plus

 

[DoubleZero]

Re : VBA : liste de toutes les références disponibles (activées ou non)

Bonjour, dionys0s, CISCO , le Forum,

En attendant mieux, le code suivant liste les références actives... uniquement... dans le fichier actif.

Sub Références_actives()
' code de michdenis (merci !)
    Dim Ref As Object
    Dim Sh As Worksheet
    Dim a
    With ThisWorkbook
        Set Sh = .Worksheets("a")    ' nom onglet adapter
        For Each Ref In .VBProject.References
            a = a + 1
            With .VBProject.References(a)
                Sh.Range("A" & a) = .Name
                Sh.Range("B" & a) = .Description
                Sh.Range("C" & a) = .FullPath
                Sh.Range("D" & a) = .Major
                Sh.Range("E" & a) = .Minor
                Sh.Range("F" & a) = .GUID
            End With
        Next
        Sh.Range("A:F").EntireColumn.AutoFit
    End With
End Sub

A bientôt

 

[dionys0s]

Re : VBA : liste de toutes les références disponibles (activées ou non)

Re,

Je ne peux pas tellement être plus précis non... quelle que soit la machine, l'OS, quel que soit le contenu du fichier, je souhaitais savoir s'il était possible de lister toutes les références potentielles. Je savais déjà lister les actives (merci quand même DoubleZero) et donc j'aurais aimé lister les autres.

 

[david84]

Re : VBA : liste de toutes les références disponibles (activées ou non)

Bonsoir dionys0s, CISCO, 00,
et si tu nous expliquais quel est le but de la manœuvre ?
Je suppose que si tu veux lister toutes les références disponibles c'est dans un but bien précis non ?
A+

 

[dionys0s]

Re : VBA : liste de toutes les références disponibles (activées ou non)

Re,

dans l'idée (et si j'y arrive) c'est pour une histoire de compatibilité Mac/PC. Activation/désactivation de références automatiquement à l'ouverture du classeur en fonction de l'OS.

 

[david84]

Re : VBA : liste de toutes les références disponibles (activées ou non)

Le plus simple est d'utiliser une liaison tardive via un CreateObject comme cela tu n'as plus besoin de cocher les bibliothèques dont tu as besoin.
Ceci dit les bibliothèques propres à l'environnement Windows ne pourront pas être utilisées sous Mac.
A+

 

[dionys0s]

Bonjour le forum,

je ressuscite ce post. La question était restée en suspens à l'époque et je cherche encore un moyen de lister toutes les références disponibles (et pas seulement celles qui sont actives) pour en activer certaines. Je connais les liaisons tardives, mais j'aimerais m'en passer, les gains de performance sont substantiels.

J'ai fini par trouver une méthode qui utilise l'API Windows. J'ai donc accès aux références disponibles, notamment à leur description (le texte que l'on voit dans le VBE dans la liste des références), leur chemin d'accès (FileName) et leur GUID. Avec ça je peux vérifier les références actives et activer les manquantes avec la commande VBProject.References.AddFromFile(FileName).
Ca fonctionne, mais uniquement lorsque le résultat est inscrit en dur dans une feuille de calcul.
Si je liste les résultats dans une collection de classe, par exemple la référence "Microsoft Forms 2.0 Object Library" devient "Microsoft Forms 2.0 Object Library 0 O b j e c t L i b r a r y r a r y . 0 T y p e l i b r a r y L i b r a r y " et c'est comme ça pour toutes les références.

Y a-t-il un moyen de contourner ça et de récupérer le texte "propre" sans passer par une écriture dans une feuille de calcul ?

Bonne journée à tous.

 

[Dranreb]

Bonjour.
Je ne vois pas ce qui pourrait entrainer ce que vous dites, et que je ne vois pas dans votre classeur.

je liste les résultats dans une collection de classe, par exemple la référence "Microsoft Forms 2.0 Object Library"

Ceci n'a de toute façon aucun sens compréhensible.
On pourrait à la rigueur verser ça dans une MSForms.ListBox.

 

[dionys0s]

Voici ce que j'observe : lorsque le code suivant s'exécute :

Voici ce qui s'écrit dans l'onglet :

c'est à dire des chaînes de caractère normales,

et voici ce que j'obtiens dans la fenêtre d'exécution du VBE :

 

[Dranreb]

Personnellement je n'utilise jamais la fenêtre d'exécution, ni les instruction Debug.Print. Je n'ai jamais pu comprendre à quoi ça pouvait bien servir, ça ne fait que compliquer les chose inutiliment. Je mets seulement de temps à autre des espions pour déboguer. À part ça seul le résultat produit m'intéresse.

 

[dionys0s]

Certes, mais c'est juste pour dire que le contenu de la variable "lpDescription" contient une chaîne de caractères. Et que cette chaîne mise dans une cellule est différente :
Par exemple "Microsoft Scripting Runtime p t i n g R u n t i m e a r y s s i o n s 5 . 5 r y y i b r a r y L i b r a r y " devient "Microsoft Scripting Runtime" dans la cellule. C'est ce que je ne m'explique pas.

 

[Dranreb]

Moi non plus je ne m'explique pas pourquoi le Debug.Print ne la restutue pas comme elle est, et ça ne m'intéresse pas. Si on l'envoie dans un élément de tableau, elle est normale aussi.

 

[dionys0s]

Je l'ai envoyée dans une classe, et elle n'est pas normale (elle est comme dans la fenêtre d'exécution).

 

[Dranreb]

On ne peut pas envoyer un String dans une classe. Ça ne veut rien dire. On peut à la rigueur l'affecter à une propriété d'un objet défini par une classe.