Discussion :

[EvaristeGaloisBis]

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...

[SilkyRoad]

bonjour


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


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Utilise Installed = True

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EvaristeGaloisBis]

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