[Excel-VBA] Bibliothèques

Public Function PresenceExtension() As Boolean
' Vérification de la présence d'une librairie

    Const StdModule = "vbext_ct_StdModule"
    
    Dim Chemin, Texte As String
  
    On Error Resume Next
  
    PresenceExtension = False
    With ThisWorkbook.VBProject.VBComponents
        'vbext_ct_StdModule provoque un erreur si
        'VBA Extensibility 5.3 n'est pas installée..
        .Add(vbext_ct_StdModule).Name = "TestVBA"
        If (Err <> 0) Then
            Texte = "Bibliothèque manquante" & vbCrLf
            Texte = Texte & "Cette application va tenter d'installer la bibliothèque manquante."
            MsgBox Texte
            'Installe la bibliothèque manquante
            Chemin = Application.Path
            Chemin = Mid(Chemin, 1, 1)
            Chemin = Chemin & ":\Program Files\Fichiers communs\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
            .Parent.References.AddFromFile Chemin
            PresenceExtension = True
            MsgBox "Opération d'ajout réussi."
        Else
            .Remove .Item("TestVBA")
            PresenceExtension = True
        End If
    End With

End Function
'