Discussion :

[shudmeyer]

Bonjour à tous,

Tout d'abord je préfère prévenir que je suis débutant sur VBA.

J'ai crée une macro pour activer les macros complémentaires (Utilitaire d'analyse), mais les utilisateurs qui vont utiliser mon fichier ont soit excel en anglais, soit en français (ou soit excel 2003, soit excel 2010), la macro complémentaire n'a donc pas le même nom : "Analysis ToolPak" ou "Utilitaire d'analyse".

En conséquence, à l'ouverture du fichier, excel m'indique "Erreur d'execution '9'", car il ne reconnait pas soit l'un soit l'autre nom.
Comment résoudre ce problème?
Merci beaucoup !

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
ActiveWorkbook.RefreshAll
AddIns("Analysis ToolPak").Installed = True
AddIns("Utilitaire d'analyse").Installed = True
End Sub

[issoram]

Bonjour,

- Soit de manière un peu brute:

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
ActiveWorkbook.RefreshAll
On Error Resume Next
AddIns("Analysis ToolPak").Installed = True
AddIns("Utilitaire d'analyse").Installed = True
On Error Goto 0
End Sub

- Soit plus finement en détectant la langue utilisée: http://www.developpez.net/forums/d1093754/logiciels/microsoft-office/excel/macros-vba-excel/recuperer-langue-d-utilisation-l-utilisateur/

Bonne journée

[Invité]

Salut,

Essaie 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
24
25
26
27
28
29
30
31
 
Sub InstallAndUnInstallAddIn()
    Dim IsInstalled As Boolean
    Dim IsUninstalled As Boolean
    ' Installe le complément
    IsInstalled = InstallAnalysisToolPak
    ' Désinstalle le complément
    IsUninstalled = UninstallAnalysisToolPak
End Sub
 
Function InstallAnalysisToolPak() As Boolean
    Dim AddIn As AddIn
    For Each AddIn In Excel.AddIns
        If StrComp(AddIn.Name, "ANALYS32.XLL", vbTextCompare) = 0 Then
            AddIn.Installed = True
            InstallAnalysisToolPak = AddIn.Installed
            Exit Function
        End If
    Next
End Function
 
Function UninstallAnalysisToolPak() As Boolean
    Dim AddIn As AddIn
    For Each AddIn In Excel.AddIns
        If StrComp(AddIn.Name, "ANALYS32.XLL", vbTextCompare) = 0 Then
            AddIn.Installed = False
            UninstallAnalysisToolPak = Not AddIn.Installed
            Exit Function
        End If
    Next
End Function

Ici, la recherche est effectué avec le nom du complément.