Manipulation des macros complémentaires par macro

Bonjour,

je me pose des questions sur les macros complémentaires.
J'aimerais savoir comment on peut faire pour retirer une macro complémentaire qui est déja activée.

Par exemple, je voudrais faire une macro qui puisse installer les nouvelles version d'une boite a outils, et pour cela quand il trouve une version antérieure déja installée, il faut qu'il puisse la retirer (la désactiver des macro complémentaires par codes).
Je sais comment en mettre grace a application.adds-in.add() mais il n'y a pas de remove? comment faire dans ce cas?

De même j'aimerai que ma macro puisse cocher elle meme dans l'onglet macro complémentaire. Comment faire ?

Merci d'avance...

bonjour


J'espère que ces infos pourront t'aider


Pour récupérer des infos sur les compléments:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub listeMacrosComplementaires() Dim i As Integer   For i = 1 To Application.AddIns.Count Debug.Print Application.AddIns(i).Title Debug.Print Application.AddIns(i).Name Debug.Print Application.AddIns(i).FullName Debug.Print Application.AddIns(i).Installed Debug.Print "---" Next End Sub

---

Citation:

---

comment on peut faire pour retirer une macro complémentaire qui est déja activée.

Par exemple, je voudrais faire une macro qui puisse installer les nouvelles version d'une boite a outils, et pour cela quand il trouve une version antérieure déja installée, il faut qu'il puisse la retirer (la désactiver des macro complémentaires par codes).
Je sais comment en mettre grace a application.adds-in.add() mais il n'y a pas de remove? comment faire dans ce cas?

---

Cette procédure boucle sur les complément et le désactive s'il porte un nom précis:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub DesinstalleMacroComplementaire() Dim i As Integer   For i = 1 To Application.AddIns.Count If Application.AddIns(i).Name = "ClasseFileSearch.xla" Then Application.AddIns(i).Installed = False   Exit For End If Next End Sub

---

Citation:

---

De même j'aimerai que ma macro puisse cocher elle meme dans l'onglet macro complémentaire. Comment faire ?

---

Utilise Installed = True

Code:

---

1 2 3 4 5 6 7

Sub InstallerMacroComplementaire() Dim oAddIn As AddIn   Set oAddIn = Application.AddIns.Add _ (Filename:="C:\Documents and Settings\mimi\dossier\NomComplement.xla") oAddIn.Installed = True End Sub

---

bonne journée
michel

Merci Michel pour tes réponses simples, précises et efficaces.