Cohabiter - Private Declare sur Excel 2007 32 Bits et 2016 64Bits

**Crachover** · 16/06/2018, 15h38

Bonjour,

J'ai un fichier Excel (version 2007 32bits) avec du code VBA et des déclarations de variables... J'ai cependant besoin de le faire aussi tourner sur un Office 2016 64Bits...

Si j'ai bien compris... la déclaration des variables changent, il faudrait y ajouter la commande : "PtrSafe"

J'ai donc modifié le code, mais je n'arrive pas à le faire cohabiter avec le code du 2007...

J'ai trouvé ceci sur la toile, mais cela ne fonctionne pas...

Code :

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

1
2
3
4
5
#If VBA7 Then
    Declare PtrSafe Function ...
#Else
    Declare Function ...
#End If

Pourriez-vous m'aider ? Voici mon code :

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
#If VBA7 Then
   Private Declare PtrSafe Function GetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long
 
Private Declare PtrSafe Function SetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
 
Private Declare PtrSafe Function FindWindowA Lib "User32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#Else
    Private Declare Function GetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long
 
Private Declare Function SetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
 
Private Declare Function FindWindowA Lib "User32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

Ps : Sur Excel 2007, le code avec "PtrSafe" apparait en rouge...

Merci d'avance pour votre aide :-)
Bon week-end

**kiki29** · 16/06/2018, 23h38

Salut, à toi de voir et appliquer : Développer avec Office 64 bits

Même Microsoft déconseille l'installation d'une version 64 bits d'Office.

Office 32 bits est recommandé pour la plupart des utilisateurs
Nous recommandons la version 32 bits d’Office pour la plupart des utilisateurs, car elle offre une plus grande compatibilité avec la plupart des autres applications, en particulier les compléments tiers. C’est la raison pour laquelle la version 32 bits d’Office est installée par défaut, même sur les systèmes d’exploitation Windows 64 bits. Sur ces systèmes, le client Office 32 bits est pris en charge en tant qu’installation Windows-32-on-Windows-64 (WOW64). WOW64 est l’émulateur x86 qui permet l’exécution de façon transparente des applications Windows 32 bits sur les systèmes Windows 64 bits. Cela permet aux utilisateurs de continuer à utiliser les contrôles ActiveX et les compléments COM Microsoft avec la version 32 bits d’Office.