Discussion :

[ted the Ors]

Bonjour,

Pour les besoins d'une macros, j'ai automatisé l'installation des outils d'analyse (Analysis Toolpack) de la sorte:

Code :

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

1
2
3
4
Sub Install_Tool_Pack()
    AddIns("Analysis ToolPak").Installed = True
    AddIns("Analysis ToolPak - VBA").Installed = True
End Sub

Problème: si je lance ma macro sous un Windows 32 bits, le chemin de la référence est :
C:\Program Files\Microsoft Office\Office14\Library\Analysis
Si je lance ma macro sous un Windows 64 bits, le chemin de la référence est :
C:\Program Files (x86)\Microsoft Office\Office14\Library\Analysis

Y aurait-il un moyen de rattacher la référence en prenant en compte la différence de l'architecture de l'OS?

D'avance merci.

[joe.levrai]

Bonjour,

en passant par les constantes de compilations conditionnelles, ici WIN32/64 (y'en a d'autres comme VBA7 etc...) :

Code :

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

1
2
3
4
5
#if Win64 then
   ' le chemin de l'OS 64
#else
   ' le chemin de l'OS 32
#end if

[ted the Ors]

Bonjour Joe,

Ok. Merci pour la suggestion.
du coup, j'essaie avec la commande Application.OperatingSystem mais celle ci me renvoie "Windows (32 bits) NT 6.01" alors que je suis sur une version 64 bits.

[ted the Ors]

Bon, finalement, j'ai trouvé ce bout de code qui fonctionne (testé sur une machine 64 bits et une machine 32 bits) (source):

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
Private Declare Function GetProcAddress Lib "kernel32" _
    (ByVal hModule As Long, _
    ByVal lpProcName As String) As Long
 
Private Declare Function GetModuleHandle Lib "kernel32" _
    Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long '()
 
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
 
Private Declare Function IsWow64Process Lib "kernel32" _
    (ByVal hProcess As Long, ByRef Wow64Process As Long) As Long
 
Sub CheckWhetherIts64()
 
    Dim Its64 As Long
    Dim handle As Long
 
    handle = GetProcAddress(GetModuleHandle("kernel32"), _
                   "IsWow64Process")
 
    If handle > 0 Then ' IsWow64Process function exists
        ' Now use the function to determine if
        ' we are running under Wow64
 
        IsWow64Process GetCurrentProcess(), Its64
    End If
    If Its64 = 1 Then
        MsgBox "it's a 64 bit process."
    End If
End Sub

[ted the Ors]

En revanche, impossible de coder quelque chose du style:

Code :

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

AddIns("C:\Program Files (x86)\Microsoft Office\Office14\Library\Analysis\ATPVBAEN.XLAM").Installed = True

Des idées pour préciser le répertoire dans lequel chercher les références?

[joe.levrai]

C'est quand même plus compliqué que ce que j'ai proposé

et tu vas te retrouver avec un nouveau problème sous les bras : utilisation Office 32/64 bits où il faudra gérer les déclarations d'API en structure conditionnelle

là encore, un petit #If VBA7 répond à la problématique


mais, si ça marche et te convient, tu peux clôturer la discussion

[ted the Ors]

Bon, finalement, voici le code final:

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 Install_Tool_Pack()
Dim Its64 As Long
Dim handle As Long
 
handle = GetProcAddress(GetModuleHandle("kernel32"), "IsWow64Process")
 
If handle > 0 Then
    IsWow64Process GetCurrentProcess(), Its64
End If
 
If Its64 = 1 Then
    AddIns("Analysis ToolPak").Installed = False
    Set myAddIn = AddIns.Add(Filename:="C:\Program Files (x86)\Microsoft Office\Office14\Library\Analysis\ATPVBAEN.XLAM")
    AddIns("Analysis ToolPak").Installed = True
 
    AddIns("Analysis ToolPak - VBA").Installed = False
    Set myAddIn = AddIns.Add(Filename:="C:\Program Files (x86)\Microsoft Office\Office14\Library\Analysis\ANALYS32.XLL")
    AddIns("Analysis ToolPak - VBA").Installed = True
 
Else
    AddIns("Analysis ToolPak").Installed = False
    Set myAddIn = AddIns.Add(Filename:="C:\Program Files\Microsoft Office\Office14\Library\Analysis\ATPVBAEN.XLAM")
    AddIns("Analysis ToolPak").Installed = True
 
    AddIns("Analysis ToolPak - VBA").Installed = False
    Set myAddIn = AddIns.Add(Filename:="C:\Program Files\Microsoft Office\Office14\Library\Analysis\ANALYS32.XLL")
    AddIns("Analysis ToolPak - VBA").Installed = True
 
End If
 
End Sub

Je n'ai effectivement pas pris en compte la problématique "version d'office". Je pars du principe (en espérant que ce ne soit pas à tort) que celle-ci est la même partout.