Discussion :

[mick79100]

Bonjour à tous

Lors du passage de Office 2003 à Office 2013, dans une macro Excel, les 3 lignes suivantes se mettent maintenant en rouge.
(C'est une partie de routine récupérée sur un forum, qui fonctionnait très bien et dont je remercie l'auteur !)

Code :

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

1
2
3
4
5
6
7
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
 
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
 
 
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Est-ce que c'est possible de remodeler cette routine ? Quelqu'un aurait la gentillesse de m'éclairer ?
Merci d'avance
Mick

[clementmarcotte]

Bonjour,

Pour une solution VB6 en particulier, je ne sais pas. Ceci dit la raison c'est probablement que depuis Office 2010, Office est disponible en versions 32 et 64 bits, et, en VBA, les déclarations des fonctions API doivent être modifiées. Dans un Office à 64 bits, les appels à l'API qui doivent être modifiés, sont affichés en rouge.

Avec un parc hétéroclite d'Office 32 et 64 bits et pour garder la compatibilité des macros avec les deux versions; en VBA, cela prendrait quelque chose qui ressemblerait à cela, en utilisant une constante de compilation condittionnelle:

Code :

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

1
2
3
4
5
6
7
8
9
10
#if VBA7 then
    'La macro est utilisée avec un OFFICE à 64 bits
     Public Declare Function PTRSAFE GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
     Public Declare Function PTRSAFE  GetDC Lib "user32" (ByVal hwnd As Long) As Long
     Public Declare Function  PTRSAFE  GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
#Else
     Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
     Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
     Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
#End if

Il y a bien aussi cet article:
http://arkham46.developpez.com/artic...ice/vba64bits/

[mick79100]

Bonjour Clément

Désolé, mais toutes les lignes de déclarations proposées se mettent en en rouge.

C'est peut-être du à la version Office 2013 !

Je me passerai donc de cette routine récupérée sur un forum, il y a un certain temps !

Merci de t’être penché sur ce problème.

Mick