VBA Récupérer le code GUID d'une référence

Bonjour le forum, tout le monde,

Je voudrais charger les références que j'utilise pour mon programme lors de l'ouverture du fichier, j'ai le code pour ça mais pas le code GUID des références que je veux utiliser...

Code pour charger les références :

Private Sub Workbook_Open() 

    On Error Resume Next 
     'Reference ADO Object Library using Major / Minor GUID
    Set ID = ThisWorkbook.VBProject.References 
    ID.AddFromGuid "{00000205-0000-0010-8000-00AA006D2EA4}", 2, 5 

End Sub 

Code pour récupérer les informations des références utilisées :

Option Explicit

Sub ListReferencePaths()
Dim a As Integer
'Macro purpose:  To determine full path and Globally Unique Identifier (GUID)
     'to each referenced library.  Select the reference in the Tools\References
     'window, then run this code to get the information on the reference's library

     a = ThisWorkbook.VBProject.References.Count
    On Error Resume Next
    Dim i As Long
    With ThisWorkbook.Sheets(1)
        .Cells.Clear
        .Range("A1") = "Reference name"
        .Range("B1") = "Full path to reference"
        .Range("C1") = "Reference GUID"
    End With
    For i = 1 To ThisWorkbook.VBProject.References.Count
        With ThisWorkbook.VBProject.References(i)
            ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(1, 0) = .Name
            ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(0, 1) = .FullPath
            ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(0, 2) = .GUID
        End With
        MsgBox a
    Next i
    On Error GoTo 0
End Sub

Et c'est dans cette commande que j'ai une erreur,

ThisWorkbook.VBProject.References.Count

il me dit

"La méthode 'VB Project' de l'objet '_Workbook a échouée"

Voilà, si vous avez d'autres solutions, je suis preneur aussi!

Merci d'avance!

Salut le forum

Sous Excel 2003

Outils > Macro > Sécurité > Éditeurs approuvés >

  • Cocher Faire confiance au projet Visual Basic

Sous Excel 2007

Développeur > Sécurité des macros > Paramètres de macros >

  • Cocher Accès approuvé au modèle d'objet du projet VBA

Mytå

Merci ô grand dieu Myta!

Toujours la bonne réponse sous le coude!

Là je bosse sur 2007 mais je vais passer à 2010, j'imagine que c'est la même manip'

En tout cas, encore un grand merci!

Rechercher des sujets similaires à "vba recuperer code guid reference"