Astuce - Lister les références utilisées dans un projet

RoyalP

XLDnaute Occasionnel
Ce code n'est pas de moi mais je le trouve vraiment trés pratique. L'auteur se reconnaitra surement et je l'en remercie par avance.

Code:
'-------------------------------------------------
'-                                               -
'- Lister les references utilisés dans un projet -
'-                                               -
'-------------------------------------------------
Sub Lister_LesGuids_Références()
Dim X As Integer, Sh As Worksheet
Dim NbRef As Integer, A As Integer
Set Sh = Worksheets.Add(After:=Sheets(Sheets.Count))
On Error Resume Next
With Sh
    .Name = "GUIDS"
    .Cells(1, 1) = "Nom de la bibliothèque"
    'Son appellation dans la fenêtre Reférences
    .Cells(1, 2) = "Description"
    .Cells(1, 3) = "Guid"
    .Cells(1, 4) = "Major"
    .Cells(1, 5) = "Minor"
    .Cells(1, 6) = "Chemin complet"
    With .Range("A1:F1")
        .Font.Bold = True
        .Font.Size = 12
    End With
    With Sh.Parent.VBProject.References
        NbRef = .Count
        X = 2
        For A = 1 To NbRef
            Sh.Cells(X, 1) = .Item(A).Name
            Sh.Cells(X, 2) = .Item(A).Description
            Sh.Cells(X, 3) = .Item(A).GUID
            Sh.Cells(X, 4) = .Item(A).major
            Sh.Cells(X, 5) = .Item(A).minor
            Sh.Cells(X, 6) = .Item(A).fullpath
            X = X + 1
        Next
    End With
    .Range("A1").CurrentRegion.EntireColumn.AutoFit
End With
End Sub
'------------------------------------------

À partir de l'information, on peut charger les bibliothèques désirées
de cette manière :

Dans le ThisWorkbook, tu crées ce type de procédure :

Exemple : Pour charger la bibliothèque :
Library MSForms -> Nom de la bibliothèque (formulaire)
C:\Windows\system32\FM20.DLL -> Chemin et fichier source
Microsoft Forms 2.0 Object Library -> Appellation descriptive.

Code:
'----------------------------------------------
Private Sub Workbook_Open()
 
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromGuid _
GUID:="{0D452EE1-E08F-101A-852E-02608C4D0BB4}", major:=2, minor:=0
 
End Sub
'----------------------------------------------

Ca m'a super bien servi pour savoir quelles librairies manquées.
 

Discussions similaires

Statistiques des forums

Discussions
312 855
Messages
2 092 847
Membres
105 543
dernier inscrit
sebastien catenaire