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

[invite87d73c78]

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

Merci, Footale.
-----

[invite60415e49]

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