Test si une library est installée

Désolé,

j'avais oublié les sources d'AddInOpen qui est une
fonction :
Function AddInOpen(Filename As String) As Boolean

'Returns: Boolean - True si l'add-in est ouvert
' false sinon
AddInOpen = Not IsError(Application. _
ExecuteExcel4Macro("DOCUMENTS(2,""" _
& Filename & """)"))

-----Message d'origine-----
Bonjour,

Quellees la commande à utiliser pour tester la présence
d'un library. (Pour les projects j'utilise AddInOpen mais
cela ne fonctionne pas pour une library)

Merci par avance
Sylvain
.

Bonjour Sylvain,

Voici quelque chose provenant de Frédéric Sigonneau :

'--------------------------------
Sub LesReferences()

Dim Ref(1 To 4), A As Integer

'Les références essentielles au projet.
Ref(1) = "C:system....."
Ref(2) = "C:system....."
Ref(3) = "C:system....."
Ref(4) = "C:system....."

On Error Resume Next
With ThisWorkbook.VBProject
For Each r In .References
If r.IsBroken = True Then
.References.Remove r
End If
Next
For A = 1 To UBound(Ref)
.References.AddFromFile Ref(A)
Next
End With

End Sub
'--------------------------------


Salutations!


"Sylvain" <Sylvain@discussions.microsoft.com> a écrit dans le message de news:028601c3c93d$b0309db0$a001280a@phx.gbl...
Bonjour,

Quellees la commande à utiliser pour tester la présence
d'un library. (Pour les projects j'utilise AddInOpen mais
cela ne fonctionne pas pour une library)

Merci par avance
Sylvain