Lister les composants d'excel et en désactiver un

'Private Sub Workbook_Open()
Public Sub Test()
	Dim success As Boolean
	'Dim myAddIn As AddIn

	Liste = ""
	Set myAddIn = Application.AddIns
	'Listage des adds
	For Each myAddIn In AddIns
		If myAddIn.Name = "Telekurs FinXL.dll" Then 'Si l'add correspond à celui que l'on recherche, le désactiver
			myAddIn.Installed = False
		End If
		Liste = Liste & myAddIn.Name & " \ "
	Next
	Set myAddIn = Nothing
	'MsgBox Liste 'Décommentez ceci pour afficher la liste des adds

	'Listage des composants Com
	Liste = ""
	For Each myCOMAddIn In Application.COMAddIns
		Liste = Liste & myCOMAddIn.Description & " \ "
		If myCOMAddIn.Description = "Telekurs FinXL Addin" Then 'Si l'add correspond à celui que l'on recherche, le désactiver
			myCOMAddIn.Connect = False
		End If
	Next
	'MsgBox Liste 'Décommentez ceci pour afficher la liste des adds

End Sub