Sub GetOutlookAddins()
Dim i As Integer
Dim App As New Outlook.Application
Dim Cellule As Range
Set Cellule = [A1]
Cellule.Resize(14, 6).ClearContents
Cellule.Value = "Compléments Outlook"
For i = 1 To App.COMAddIns.Count
Cellule.Offset(i, 0) = App.COMAddIns.Item(i).Description
Cellule.Offset(i, 5) = IIf(App.COMAddIns.Item(i).Connect, "Actif", "Inactif")
Next i
End Sub
Sub GetComAddins()
Dim i As Integer
Dim Cellule As Range
Set Cellule = [A15]
Cellule.Resize(14, 6).ClearContents
Cellule.Value = "COM Add-Ins"
For i = 1 To Application.COMAddIns.Count
Cellule.Offset(i, 0) = Application.COMAddIns.Item(i).Description
Cellule.Offset(i, 5) = IIf(Application.COMAddIns.Item(i).Connect, "Actif", "Inactif")
Next i
End Sub