Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre du Club
    Inscrit en
    janvier 2013
    Messages
    55
    Détails du profil
    Informations forums :
    Inscription : janvier 2013
    Messages : 55
    Points : 54
    Points
    54

    Par défaut Declarations fonctions VBA en 32 bits et 64 bits

    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

  2. #2
    Débutant  
    Avatar de patricktoulon
    Homme Profil pro
    cuisiniste
    Inscrit en
    avril 2009
    Messages
    15 308
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : avril 2009
    Messages : 15 308
    Points : 13 224
    Points
    13 224
    Billets dans le blog
    7

    Par défaut re

    re
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  3. #3
    Membre du Club
    Inscrit en
    janvier 2013
    Messages
    55
    Détails du profil
    Informations forums :
    Inscription : janvier 2013
    Messages : 55
    Points : 54
    Points
    54

    Par défaut

    bonjour patricktoulon

    Toujours à l'heure

    Merci c’est bien ce que je cherchais


    Bonne et heureuse journée

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Appel fonctions API 64 bits
    Par Cgoldy dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 16/04/2013, 14h44
  2. Fonction des bits %X dans PL7_07
    Par steric007 dans le forum Automation
    Réponses: 1
    Dernier message: 23/02/2009, 09h26
  3. A la recherche de fonctions bit à bit
    Par dug dans le forum SQL
    Réponses: 5
    Dernier message: 11/02/2009, 15h11
  4. Réponses: 5
    Dernier message: 13/07/2007, 16h14
  5. Réponses: 1
    Dernier message: 14/05/2007, 09h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo