Declarations fonctions VBA en 32 bits et 64 bits

Version imprimable

bonjour a tous

Y'a t'il un moyen de déclarer une fonction API en 32 bits et 64 bits dans un mème projet VBA pour que ce dernier fonction en mème temps sur les plates forme 32 et 64 bits

Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'declarations pour la Gestion de l'ecran de veille
Private Declare Function SetThreadExecutionState Lib "kernel32.dll" (ByVal esFlags As Long) As Long
Private Const ES_DISPLAY_REQUIRED As Long = 2
Private Const ES_CONTINUOUS As Long = -2147483648#
 
'Bloqué écran de veille 
Sub BloqVeille(Optional strBidon As String)
    On Error Resume Next
    SetThreadExecutionState (ES_DISPLAY_REQUIRED Or ES_CONTINUOUS)
End Sub
'active écran de veille
Sub ActivVeille(Optional strBidon As String)
    On Error Resume Next
    SetThreadExecutionState (ES_CONTINUOUS)    ' écran de veille
End Sub

Merci d'avance

cdt

Code:

1
2
3
4
5
6
7
8
9
#If win64 Then ' si windows 64
    #If vba7 Then 'si vba 7 dans win64
        Private Declare ptrsafe  Function SetThreadExecutionState Lib "kernel32.dll" (ByVal esFlags As Long) As Long
    Else 'si win64 et vba6
        Private Declare Function SetThreadExecutionState Lib "kernel32.dll" (ByVal esFlags As Long) As Long
    #End If
#Else 'autrement sur win32 vba6
    Private Declare Function SetThreadExecutionState Lib "kernel32.dll" (ByVal esFlags As Long) As Long
#End If

10/02/2019, 15h12
omrsmiloud

bonjour patricktoulon

Toujours à l'heure

Merci c’est bien ce que je cherchais

Bonne et heureuse journée