Utilitaire d'analyse Code VBA: Erreur execution '9'

Version imprimable

07/10/2015, 11h01
shudmeyer

Utilitaire d'analyse Code VBA: Erreur execution '9'
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:

1 2 3 4 5 Private Sub Workbook_Open() ActiveWorkbook.RefreshAll AddIns("Analysis ToolPak").Installed = True AddIns("Utilitaire d'analyse").Installed = True End Sub
07/10/2015, 11h22
issoram
Bonjour,

- Soit de manière un peu brute:
Code:

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

Salut,

Essaie comme ceci:

Code:

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.