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