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

[RAFAAJ2000]

#WIN64 est un terme trompeur .... Il veux pas dire que la version de Windows est 64bit mais plutôt ça veut dire que la version d'office est VBA7 64 bits .

Code :

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

1
2
#If Win64 Then
#If VBA7 Then

C'est la même chose que :

Code :

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

#If Win64

car la seule version de VBA qui supporte 64bit est VBA7 et pas VBA5/6.

[patricktoulon]

re

car la seule version de VBA qui supporte 64bit est VBA7 et pas VBA5/6.

????????????????????

[RAFAAJ2000]

Sorry, Peut etre je ne me suis pas bien expliqué.

VBA7 a deux versions 32 et 64 bits
elle fut introduite avec office 2010

office 2007 et les versions antérieures sont toutes VBA6 ou VBA5

[RAFAAJ2000]

@patricktoulon

Votre declaration des APIs :

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

Ne fonctionnera pas dans les versions d'office 2010\2013\2016 etc 32bit ... Cela causera une erreur de compilation apres le dernier #Else :

Code :

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

1
2
3
4
5
6
7
8
 
.........
#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

[patricktoulon]

re

heu... je viens de tester mes déclarations tel quel sur 2013 32 bits ca fonctionne très bien



la seul différence avec 2007 32 bits c'est que mes déclaration ptrsafe ne sont pas en rouge

un autre exemple avec setwindowlongA toujours 2013 32 bits

[RAFAAJ2000]

Cela fonctionne chez vous car vous avez l'OS Windows 32 Bit

Sur Windows 64bit, votre code produirait une erreur.

[patricktoulon]

re
je suis étonné de ce que tu me dit tout ceux qui ont mes codes avec ces api en 2016 64 ne m'ont jamais rapporté cette erreur
j'ai d'ailleurs tester moi même sur un pc portable avec 2016 64
d'ailleurs même sans le if win 64 avec juste if VBA 7
le dernier else concerne les versions 32
je re testerais dans la semaine des que je peux sur le portable

[RAFAAJ2000]

re
je suis étonné de ce que tu me dit tout ceux qui ont mes codes avec ces api en 2016 64 ne m'ont jamais rapporté cette erreur
j'ai d'ailleurs tester moi même sur un pc portable avec 2016 64
d'ailleurs même sans le if win 64 avec juste if VBA 7
le dernier else concerne les versions 32
je re testerais dans la semaine des que je peux sur le portable

Je retire ce que j'ai dit.

Voici une declaration genérique et plus courte qui fonctionne sur toutes versions d'excel et/ou windows et toutes les differentes 'Bitness' :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#If Win64 Then ' (Office 64bit ET Win 64Bit)
    Private Declare PtrSafe Function SetWindowLongPtrA Lib "user32" (ByVal hwnd As LongLong, ByVal nIndex As Long, ByVal dwNewLong As LongLong) As LongLong
    Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongLong
    Private Declare PtrSafe Function GetWindowLongA Lib "user32" (ByVal hwnd As LongLong, ByVal nIndex As LongLong) As LongLong
    Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongLong, ByVal nCmdShow As LongLong) As LongLong
#Else ' (Office 32bit ET Win 32Bit) OU (Office 32Bit ET Win 64Bit)
    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

[patricktoulon]

oui
pour certaines api il faut quand meme le #if Win 64 sinon oui le if vba7 else suffit je le faisait comme ca avant mais comme j'utisise certaine api et des variable type je fait les 3