Discussion :

[Oyabi]

Bonjour à tous,
je souhaiterais vérifier qu'un AddIn est chargé à l'ouverture d'un classeur.
J'utilise ce code mais j'ai une erreur (Erreur d’exécution '9': L'indice n'appartient pas à la sélection).

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Check()
 
    If AddIns("Le nom de mon AddIn").Installed = True Then
        MsgBox "Installé"
   Else
      MsgBox "L'AddIn n'est pas installé. Seule la consultation est possible."
        ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
    End If
 
End Sub

Voyez vous ou est l'erreur ?
Bonne journée.

[Philippe Tulliez]

Bonjour,
Ce ne serait pas superflu que tu indiques à quelle ligne ce message d'erreur s'affiche.

[Oyabi]

Aucune ligne en particulier malheureusement, j'ai juste ce message qui s'affiche.
Si je rajoute On Error Resume Next je n'ai plus l'erreur mais qu'importe ce que je mets comme nom d'AddIn, le message Installé s'affiche.

[fring]

Bonjour,

Essaie comme ceci :

Code :

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

If Application.AddIns.Item("Le nom de mon AddIn").Installed = True Then

[Oyabi]

Toujours pareil, ne faudrait il pas faire un foreach sur chaque AddIn et le comparer au miens ? Mais comment obtenir la liste ?
Merci

[Philippe Tulliez]

Bonjour,
Voici un exemple de code pour lister le non des addins et s'ils sont installés ou pas

Code :

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

1
2
3
4
 Dim ad As AddIn
 For Each ad In AddIns
  Debug.Print ad.Name, ad.Installed = True
 Next

Il y a effectivement une erreur qui est déclenchée avec ce test que tu as montré.
On pourrait le détourner avec un ON ERROR

[mercatog]

Je ferai comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Test()
 
Check "XYChartLabeler.xlam"
End Sub
 
Private Sub Check(ByVal AdiName As String)
Dim Adin As AddIn
 
If Not ThisWorkbook.ReadOnly Then
    For Each Adin In AddIns
        If Adin.Name = AdiName Then
            If Adin.Installed = True Then
                MsgBox "Installé"
            Else
                MsgBox "L'AddIn " & AdiName & " n'est pas installé. Seule la consultation est possible."
                ThisWorkbook.Saved = True
                ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
            End If
            Exit For
        End If
    Next Adin
End If
End Sub

[Oyabi]

Malheureusement rien ne se produit que je mette un nom correct ou non.

Toujours rien avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
    Dim ad As AddIn
    For Each ad In AddIns
        If ad.Application.AddIns.Item("Le nom de mon AddIn").Installed = True Then
           MsgBox "Installé"
         Else
             MsgBox "L'AddIn n'est pas installé. Seule la consultation est possible."
              ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
         End If
    Next
End Sub

Je sèche complétement là. Si vous avez des idées je suis tout ouie.

[mercatog]

J'ai testé la code proposé (mais mis sur l'évènement Open du classeur)

Testé avec 2 addins de chez moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Workbook_Open()
 
Check "SOLVER.XLAM"
'Check "XYChartLabeler.xlam"
End Sub
 
Private Sub Check(ByVal AdiName As String)
Dim Adin As AddIn
 
If Not ThisWorkbook.ReadOnly Then
    For Each Adin In Application.AddIns
        If UCase(Adin.Name) = UCase(AdiName) Then
            If Adin.Installed = True Then
                MsgBox "AddIn " & AdiName & " installé"
            Else
                MsgBox "L'AddIn " & AdiName & " n'est pas installé. Seule la consultation est possible."
                ThisWorkbook.Saved = True
                ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
            End If
            Exit For
        End If
    Next Adin
End If
End Sub