Problème ajout de plugin et version 32bits/64bits

Version imprimable

03/07/2017, 14h00
ted the Ors

Problème ajout de plugin et version 32bits/64bits
Bonjour,

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

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.
03/07/2017, 14h06
joe.levrai
Bonjour,

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

1 2 3 4 5 #if Win64 then ' le chemin de l'OS 64 #else ' le chemin de l'OS 32 #end if
03/07/2017, 15h47
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.:aie:

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

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

03/07/2017, 16h39
ted the Ors

En revanche, impossible de coder quelque chose du style:

Code:

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?
03/07/2017, 16h41
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 :aie:

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

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

Bon, finalement, voici le code final:

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

03/07/2017, 17h21
patricktoulon

re

bonjour

Code:

MsgBox Application.UserLibraryPath

et si tu utilise le dossier qui est dans le dossier de office 12 ou 14 ou celui que tu veux c'est

Code:

MsgBox Application.Path & "\ADDINS\"