Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonsoir Petrus; C'est pas possible; tu ne lis pas les réponses que l'on te donne (8 déc 2005 00:13): Private Declare Function SystemParametersInfo& _ Lib "user32" Alias "SystemParametersInfoA" _ (ByVal uAction As Long, ByVal uParam As Long _ , ByRef lpvParam As Any, ByVal fuWinIni As Long)
Sub ScreenSaverOff() Call SetScreenSaver(False) End Sub
Sub ScreenSaverOn() Call SetScreenSaver(True) End Sub
Private Sub SetScreenSaver(ByVal Enable As Boolean) Dim Ret As Long Ret = SystemParametersInfo(17, Enable, ByVal 0, 0) If Ret = 0 Then MsgBox "Erreur !", 64 End Sub
MP
"Pétrus" a écrit dans le message de news: #XHx$#
Bonjour à tous et meilleurs voeux pour l'année 2006,
Voici mon problème. Déplacé le pointeur de la sourie de quelque millimètre. Avec une macro en Excel
Voici la raison, pour interrompe la mise en veille de windows Dans notre société nous avons pas accès pour supprimer la mise en veille.
Merci d'avance à tous et toutes pour votre aide Pétrus.
Bonsoir Petrus;
C'est pas possible; tu ne lis pas les réponses que l'on te donne (8 déc 2005
00:13):
Private Declare Function SystemParametersInfo& _
Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long _
, ByRef lpvParam As Any, ByVal fuWinIni As Long)
Sub ScreenSaverOff()
Call SetScreenSaver(False)
End Sub
Sub ScreenSaverOn()
Call SetScreenSaver(True)
End Sub
Private Sub SetScreenSaver(ByVal Enable As Boolean)
Dim Ret As Long
Ret = SystemParametersInfo(17, Enable, ByVal 0, 0)
If Ret = 0 Then MsgBox "Erreur !", 64
End Sub
MP
"Pétrus" <petrus.goovers@skynet.be> a écrit dans le message de news:
#XHx$#tDGHA.3064@TK2MSFTNGP10.phx.gbl...
Bonjour à tous et meilleurs voeux pour l'année 2006,
Voici mon problème.
Déplacé le pointeur de la sourie de quelque millimètre.
Avec une macro en Excel
Voici la raison, pour interrompe la mise en veille de windows
Dans notre société nous avons pas accès pour supprimer la mise en veille.
Merci d'avance à tous et toutes pour votre aide
Pétrus.
Bonsoir Petrus; C'est pas possible; tu ne lis pas les réponses que l'on te donne (8 déc 2005 00:13): Private Declare Function SystemParametersInfo& _ Lib "user32" Alias "SystemParametersInfoA" _ (ByVal uAction As Long, ByVal uParam As Long _ , ByRef lpvParam As Any, ByVal fuWinIni As Long)
Sub ScreenSaverOff() Call SetScreenSaver(False) End Sub
Sub ScreenSaverOn() Call SetScreenSaver(True) End Sub
Private Sub SetScreenSaver(ByVal Enable As Boolean) Dim Ret As Long Ret = SystemParametersInfo(17, Enable, ByVal 0, 0) If Ret = 0 Then MsgBox "Erreur !", 64 End Sub
MP
"Pétrus" a écrit dans le message de news: #XHx$#
Bonjour à tous et meilleurs voeux pour l'année 2006,
Voici mon problème. Déplacé le pointeur de la sourie de quelque millimètre. Avec une macro en Excel
Voici la raison, pour interrompe la mise en veille de windows Dans notre société nous avons pas accès pour supprimer la mise en veille.
Merci d'avance à tous et toutes pour votre aide Pétrus.
