Sub test_Complement_OL()
Dim NomA$
NomA = "Microsoft Exchange Add-in"
check = Etat_Comp(NomA)
If check Then
MsgBox NomA & "chargé dans Outlook? : " & check, vbInformation
Else
MsgBox NomA & "non chargé dans Outlook", vbCritical
End If
End Sub
Function Etat_Comp(Name As String) As Boolean
Dim i%, test
For i = 1 To Application.COMAddIns.Count
If Application.COMAddIns(i).Description = Name Then
test = Application.COMAddIns(i).Connect
Exit For
End If
Next
Etat_Comp = test
End Function