Discussion :

[Cgoldy]

Bonjour,

J'avais trouvé sur le net ces appels de fonction qui fonctionnaient trés bien, mais en 32 b.
Maintenant tous les micros sont livrés avec W8 en 64 bits et ça fonctionne donc plus.

Pouvez m'aider à faire la transformation ou me dire ou je pourrai trouver une aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal iditem As Long, ByVal wflags As Long) As Long
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function IsIconic Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function IsZoomed Lib "User32" (ByVal hWnd As Long) As Long 'non utilisée ici
Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
                                     (ByVal hWnd As Long, ByVal wMsg As Long, _
                                      ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()

Merci beaucoup !

[patricktoulon]

Bonjour

remplace

Code :

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

private Declare

par

Code :

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

private Declare PtrSafe

Au plaisir

[Invité]

http://arkham46.developpez.com/artic...ice/vba64bits/

[Arkham46]

Bonjour,

Bonjour

remplace

Code :

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

private Declare

par

Code :

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

private Declare PtrSafe

Au plaisir

Attention ce n'est pas si simple.
Les déclarations d'API doivent être corrigées avec des LongPtr pour les pointeurs, sinon risque de plantage.
C'est à cela que sert PtrSafe, à dire à VBA que les déclarations d'API sont sûres : Ptr (pointeur) Safe (sûr, sans risque).

Voir le lien donné par rdurupt.

[patricktoulon]

oui tu a raison harkam
on peut meme intégrer les deux (32/64 bits)
c'est bien ca

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
 
#If vba7 Then
Private Declare PtrSafe Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, ByVal bRevert As LongPtr) As LongPtr
Private Declare PtrSafe Function DeleteMenu Lib "User32" (ByVal hMenu As LongPtr, ByVal iditem As LongPtr, ByVal wflags As LongPtr) As LongPtr
Private Declare PtrSafe  Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function ShowWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal nCmdShow As LongPtr) As LongPtr
Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As LongPtr
Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr) As LongPtr
Private Declare PtrSafe Function IsIconic Lib "User32" (ByVal hWnd As LongPtr) As LongPtr
Private Declare PtrSafe Function IsZoomed Lib "User32" (ByVal hWnd As LongPtr) As LongPtr 'non utilisée ici
Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hWnd As LongPtr) As LongPtr
Private Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As LongPtr, lParam As Any) As LongPtr
Private Declare PtrSafe Sub ReleaseCapture Lib "User32" ()
 
#Else
Private Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal iditem As Long, ByVal wflags As Long) As Long
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function IsIconic Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function IsZoomed Lib "User32" (ByVal hWnd As Long) As Long 'non utilisée ici
Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
#End If

Au plaisir

[Arkham46]

Bonjour,

Non Patrick ce n'est pas un simple remplacement de Long en LongPtr.

Seul les pointeurs sont des LongPtr, les autres paramètres où retour de fonction reste en Long si ce ne sont pas des pointeurs.

Il y a dans mon article un lien vers un fichier de Microsoft avec la plupart des API communes déclarées pour 64bits.

[patricktoulon]

Re
Ok donc
partie 64 bits:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#If vba7 Then
Private Declare PtrSafe Function GetSystemMenu Lib "User32" (ByVal hWnd As Longptr, ByVal bRevert As Long) As LongPtr
Private Declare PtrSafe Function DeleteMenu Lib "User32" (ByVal hMenu As LongPtr, ByVal iditem As LongPtr, ByVal wflags As Long) As LongPtr
Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function ShowWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As LongPtr
Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPtr
Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function IsIconic Lib "User32" (ByVal hWnd As LongPtr) As LongPtr
Private Declare PtrSafe Function IsZoomed Lib "User32" (ByVal hWnd As LongPtr) As LongPtr 'non utilisée ici
Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hWnd As LongPtr) As LongPtr
Private Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Longptr, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPtr
Private Declare PtrSafe Sub ReleaseCapture Lib "User32" ()

j'ai bien compris ????

il est vrai que je travaille exclusivement en 32 bits Mais je pense que d'ici 2 ou 3 ans je vais devoir m'y mettre
encore des hectolitres de café et des plombes de debugages



Au plaisir