Discussion :

[omrsmiloud]

bonjour a tous

SVP je veut convertir les déclarations ci-dessous 32 bite vers la version 64 bite ( ces declaration sont utilisées pour mettre un UserForm en plein écran)

Ce matin , en installant mon appli sur un nouveau PC , j'ai reçu le message "erreur de compilation dans le module caché : UserForm1 ......"


le code utilisé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'declaration pour userform en plein ecran
Private Declare Function FindWindowA& Lib "user32" (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function GetWindowLongA& Lib "user32" (ByVal hWnd&, ByVal nIndex&)
Private Declare Function SetWindowLongA& Lib "user32" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Const GWL_STYLE As Long = -16
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_FULLSIZING = &H70000
Private HANDLE
Dim Lg As Single
Dim Ht As Single
Dim Fini As Boolean

merci d'avance

[hyperion13]

Salut
Il me semble

Code :

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

1
2
3
4
5
Private Declare PtrSafe Function FindWindowA& Lib "user32" (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare PtrSafe Function GetWindowLongA& Lib "user32" (ByVal hWnd&, ByVal nIndex&)
Private Declare PtrSafe Function SetWindowLongA& Lib "user32" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
...

[omrsmiloud]

bonsoir
merci de m'avoir rependu , en faite c'est plus compliqué que je croie , donc , et afin d’éviter des surprises , l'installation de la version 32bits et la solution qui me parait sécurisante

Encor merci

[omrsmiloud]

dans la foulée : As Long en 32 bits ==> As LongPtr en 64 bits , si non ça va planté

[Invité]

Bonjour,
Intéresses toi au directives de compilations

https://docs.microsoft.com/fr-fr/off...else-directive

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
#If Mac Then 
 '. Place exclusively Mac statements here. 
 '. 
 '. 
' Otherwise, if it is a 32-bit Windows program, do this: 
#ElseIf Win32 Then 
 '. Place exclusively 32-bit Windows statements here. 
 '. 
 '. 
' Otherwise, if it is neither, do this: 
#Else 
 '. Place other platform statements here. 
 '. 
 '. 
#End If

[omrsmiloud]

bonsoir

oui merci c'est bien noté
cdt

[patricktoulon]

Bonjour
a vérifier si je me suis pas trompé
sinon l'ensemble devrait fonctionner sur toute version Windows

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
#If WIN64 Then
    #If VBA7 Then
        Private Declare PtrSafe Function SetWindowLongPtrA Lib "USER32"(ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Longlong) As LongPtr
        Private Declare PtrSafe Function FindWindowA Lib "USER32"  (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
        Private Declare PtrSafe Function GetWindowLongA Lib "user32"  ( ByVal hwnd As LongPtr,ByVal nIndex As Longlong) As LongPtr
        Private Declare PtrSafe Function ShowWindow Lib "user32" Alias "ShowWindow" ( ByVal hwnd As LongPtr,  ByVal nCmdShow As Longlong) As Longlong
    #Else
        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
        Private Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
        Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
    #End If
#Else
    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
    Private Declare Function GetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If

[RAFAAJ2000]

Les declarations correctes pour que ca fonctionne dans toutes les versions Windows est la suivante :

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
Option Explicit
 
 
#If VBA7 Then
    #If Win64 Then
        Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr
        Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    #Else
        Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex 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
    #End If
 
    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 Long
 
#Else
        Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex 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 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
#End If

Faut tenir en compte que, dans le code, les variables contenant des pointeurs et des handles doivent elles aussi etre codés de la meme facon (cad compilation conditionelle), sinon ca ne fonctionnera pas !! .

[patricktoulon]

re
@RAFAAJ2000

Code :

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

1
2
#If VBA7 Then
    #If Win64 Then

il est plus rare de trouver vba7 dans des 32 que du vba 6 dans un system64 avec un office 32

Code :

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

1
2
#If Win64 Then
#If VBA7 Then