Répondre à la discussion
Affichage des résultats 1 à 2 sur 2

Lancer ecran de veille windows lors du lancement d'une macro excel



  1. #1
    footale

    Lancer ecran de veille windows lors du lancement d'une macro excel


    ------

    Bonsoir, je voudrai savoir comment lancer l'écran de veille par défaut de Windows lors du lancement d'une macro excel.

    Merci, Footale.

    -----

  2. #2
    gaziel45

    Re : Lancer ecran de veille windows lors du lancement d'une macro excel

    bonjour
    j'ai trouvé ce bout de code sur le net :
    Option Explicit

    Private Declare Function SendMessage Lib "user32" _

    Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As Long

    Private Declare Function GetDesktopWindow Lib "user32" () As Long

    Private Declare Function BlockInput Lib "user32" ( _

    ByVal fBlock As Long) As Long

    Private Declare Sub Sleep Lib "kernel32" ( _

    ByVal dwMilliseconds As Long)



    Private Const WM_SYSCOMMAND As Long = &H112&
    Private Const SC_SCREENSAVE As Long = &HF140&

    Sub StartScreenSaver()

    '// Starts Default ScrnSaver

    '// By Ivan F Moala

    Dim lRet As Long

    lRet = SendMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)

    '// Make sure SS displays
    DoEvents

    '// Disable any inputs via mouse or keyboard
    BlockInput True

    '// pause 10 seconds before unblocking it
    Sleep 10000

    '// Enable inputs via mouse or keyboard
    BlockInput False

    End Sub
    chez moi (winXp avec domaine) cela me lance l'invite de session

    A tester donc

    pour info aussi:
    Well, to run the computer's current screensaver, you could use the SendMessage API along with the WM_SYSCOMMAND and SC_SCREENSAVE API constants. As I've said, it will run the screensaver which is currently set.
    To change to a specific screensaver, you'd have to change the Registry entries for it, and then apply it. The registry entry you'd need to change is :
    "HKEY_CURRENT_USER\Control Panel\Desktop\SCRNSAVE.EXE"

    But to do that remotely, hmm, I don't know, think about permission issues and such ..


    bon courage

Discussions similaires

  1. Macro Excel : Calcul d'une moyenne
    Par lolo66000 dans le forum Logiciel - Software - Open Source
    Réponses: 5
    Dernier message: 19/08/2009, 09h51
  2. macro Excel
    Par gwendoline dans le forum Logiciel - Software - Open Source
    Réponses: 8
    Dernier message: 11/10/2008, 20h06
  3. L'écran de veille ne veut plus se lancer
    Par fderwelt dans le forum Logiciel - Software - Open Source
    Réponses: 5
    Dernier message: 14/10/2007, 20h28
  4. Lancer une macro sous PowerPoint au démarrage du diaporama
    Par azt dans le forum Logiciel - Software - Open Source
    Réponses: 8
    Dernier message: 14/11/2006, 22h14
  5. macro excel
    Par squall18 dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 09/05/2006, 08h55
Découvrez nos comparatifs produits sur l'informatique et les technologies.