Thomas®

Oupss!!! :whistle:

J'ai merdé dans le sujet

sorry
Thomas®

Bonjour le forum,*

je suis désolé de remonter ce poste mais seul je ne trouve pas la solution.

merci pour votre aide
Thomas®

Désactiver mise en veille PC

Bonjour

je ne sais pas faire mais je te change ton sujet pour que Ti _Thierry ou d'autres le voit mieux

Bon courage

salut... alors je suis pas sure mais test de faire...
clique droit sur le bureau, propriété, ecran de veille.
la tu a un bouton 'GESTION DE L'ALIMENTATION' clique dessus...
une fenetre aparait, va sur l'onglet de gauche... puis tu a 'PARAMETRE DU MODE PC DE BUREAU OU FAMILIAL' avec une option 'EXTINCTION DU MONITEUR'... tu le met a jamais... et la normalement ton ecran ne s'etein plus... et ne lance ni l'ecran de veille, ni la mise en veille... voila.. ciao...

sup la mise en veille

Re bonjour,

Merci pour vos reponses, je sais annuler manuellement la mise en veille mais tout comme m'avait trouvé Ti_ je cherche un moyen de le faire automatiquement (lorsque je lance la macro) et qu'elle ce réactive à la fin de celle ci.

un truck du genre
C'est ce que Ti_ m'a trouvé mais pour l'écran de veille (et dans mon cas j'ai besoin de sup la mise en veille du PC)

D'avance merci
Thomas®

PS: j'ai merdé sur le sujet mais je ne veux pas faire un doublon de poste si j'en cré un autre 😱 (je sais pas quoi faire)

Re:sup la mise en veille

Re,

je remonte au cas ou ...

D'avance merci

Thomas®

Re:sup la mise en veille

Hello,

Juste avant le week end B) .
je remonte mon petit poste.

si quelqu'un à une idée ou si quelqu'un sait si c'est impossible.

Merci d'avance
Thomas®

Re:sup la mise en veille

tu peux essayer comme ça, mais je n'ai pas testé :

Option Explicit
'Ti : Ce lien n'existe plus

Const SPI_GETSCREENSAVEACTIVE = 16
Const SPI_SETSCREENSAVEACTIVE = 17
Const SPI_GETPOWEROFFACTIVE = 84
Const SPI_SETPOWEROFFACTIVE = 86
Const SPI_GETLOWPOWERACTIVE = 83
Const SPI_SETLOWPOWERACTIVE = 85

Declare Function SystemParametersInfo Lib 'user32.dll' Alias _
'SystemParametersInfoA' (ByVal uAction As Long, ByVal uiParam As Long, _
pvParam As Any, ByVal fWinIni As Long) As Long

Dim ScreenSave As Boolean, LowPow As Boolean, PowerOff As Boolean

Sub ActiveScreenSaver(OnOff As Boolean)
Dim Ret&
Ret = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, OnOff, 0, 0)
End Sub

Function isActiveScreenSaver() As Boolean
Dim Ret As Boolean
SystemParametersInfo SPI_GETSCREENSAVEACTIVE, Ret, 0, 0
isActiveScreenSaver = Ret
End Function

Function isActivePowerOff() As Boolean
Dim Ret As Boolean
SystemParametersInfo SPI_GETPOWEROFFACTIVE, Ret, 0, 0
isActivePowerOff = Ret
End Function

Sub ActivePowerOff(OnOff As Boolean)
Dim Ret&
Ret = SystemParametersInfo(SPI_SETPOWEROFFACTIVE, OnOff, 0, 0)
End Sub

Function isActiveLowPower() As Boolean
Dim Ret As Boolean
SystemParametersInfo SPI_GETLOWPOWERACTIVE, Ret, 0, 0
isActiveLowPower = Ret
End Function

Sub ActiveLowPower(OnOff As Boolean)
Dim Ret&
Ret = SystemParametersInfo(SPI_SETLOWPOWERACTIVE, OnOff, 0, 0)
End Sub

Sub Test()
ScreenSave = isActiveScreenSaver
If ScreenSave Then ActiveScreenSaver False

LowPow = isActiveLowPower
If LowPow Then ActiveLowPower False

PowerOff = isActivePowerOff
If PowerOff Then ActivePowerOff False
'là ton traitement
'...
'...
If LowPow Then ActiveLowPower True
If PowerOff Then ActivePowerOff True
If ScreenSave Then ActiveScreenSaver True
End Sub

Re:sup la mise en veille

Bonjour Ti_, le forum,

Je tiens vraiment à te remercier, je n'ai pas encore testé mais je pensais que personne ne puisse m'aider.

je vais visiter ton site.

🙂 Merci
@+Thomas®

Re:sup la mise en veille

re, le forum, Ti_

:huh: j'ai testé et cela ne marche po,

je ne pense pas que cela soit du au fait que je sois sur excel 97.

car la macro ne bug pas mais quand je fais tourné en mode debug je constate qu'il me met faux dans mes valeurs (PowerOff , LowPow, ScreenSave )

ce qui fait que if PowerOff then ... et là il ne le fait pas puis que c'est faut.

j'ai essayé de sup la condition afin qu'il le fasse dans tt les cas, mais forcément j'attent et là ecran de veille puis ordinateur vérouillé!! :evil: .

sais tu ce qui pourrais être la cause de ce problème (car ta 1er macro pour l'ecran de veille mache chez moi mais pas au taf)

chez moi je suis sous windows xp pro et idem au boulo.
est ce du au fait que je suis logué sur un domaine?

ou alors que les fichiers en question ne porte pas le même nom?

sans trop te déranger si tu as une piste pour me guider dans mes recherche 😉 ce serait super.

sinon j'ai une question pourquoi ce genre de commande ne demande pas d'activer une référence? car j'ai pour habitude de passer par l'activation de référence afin de pouvoir piloter des trucks hors Excel (c'est pour ma culture car je ne comprend pas trop 😛inch: )

D'avance merci
Thomas®