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 : Sélectionner tout - Visualiser dans une fenêtre à part
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