Sub GUIDS_Proprietes_Lecture_Sauvegarde()
' installation des liens aux bibliothèques par les GUIDS
' l'ajout de la référence permettra d'exécuter le code si ce contrôle apparaît dans un formulaire
' La méthode AddFromGuid recherche dans le Registre de Windows pour trouver la référence à ajouter.
' Le GUID peut être une bibliothèque de type, le contrôle, l'identificateur de classe, et ainsi de suite.
' voir http://msdn.microsoft.com/en-us/library/office/gg264769.aspx
Dim X, NbRef As Integer
ThisWorkbook.Activate
Initialisation_Parametres
' ecriture des GUIDS dans lafeuille GUID et actualisation
With Sht_GUID
Set Tbl = .Range(PRF & "T_GUID_ens")
Tbl.ClearContents
On Error Resume Next
With Sht_GUID.Parent.VBProject.References
NbRef = .Count
X = 1
For A = 1 To NbRef
Tbl(X, 1) = .Item(A).Name
Tbl(X, 2) = .Item(A).Description
Tbl(X, 3) = .Item(A).GUID
Tbl(X, 4) = .Item(A).Major
Tbl(X, 5) = .Item(A).Minor
Tbl(X, 6) = .Item(A).fullpath
' actualisation du lien
ThisWorkbook.VBProject.References.AddFromGuid GUID:=Tbl(X, 3), Major:=Tbl(X, 4), Minor:=Tbl(X, 5)
X = X + 1
Next
End With
.Range("A4").CurrentRegion.EntireColumn.AutoFit
End With
End Sub