Thomas®

[Comment desactiver la mise en veill]

Bonsoir le forum,

dans un poste precedent j'avais demandé comment desativer l'ecran de veille du pc .
Grace à Ti_ j'ai eu la solution.

mais je n'avais pas pensé qu'en plus de l'ecran de veille le pc avait aussi la mise en veille!! :S
Savez vous comment puis je faire pour désactiver la mise en veille de l'ordinateur (car l'annulation de l'ecran de veille n'est pas sufisant dans mon cas car même si l'ecran de veille ne se declanche plus j'ai l'ordinateur qui ce met en veille).

si quelqu'un connait une astuce ce serait super

D'avance merci
Thomas®

PS: pour info je suis sous windows XP pro avec excel 97 ou 2003.

je parle de la mise en veille qui ce trouve dans la gestion d'allimentation (à côté de l'arrét du disque dur)

 

[Thomas®]

Oupss!!! :whistle:

J'ai merdé dans le sujet

sorry
Thomas®

 

[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®

 

[PascalXLD]

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

 

[Fifou_le_vrai]

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...

 

[Thomas®]

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

Const SPI_SETSCREENSAVEACTIVE = 17
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

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


Sub toto()
ActiveScreenSaver False 'desactive car OnOff est en Boolean donc active = faux
End Sub



Sub toto1()

ActiveScreenSaver True 'active car OnOff est en Boolean donc active = vrai
End Sub

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)

 

[Thomas®]

Re:sup la mise en veille

Re,

je remonte au cas ou ...

D'avance merci

Thomas®

 

[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®

 

[Ti_]

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

 

[Thomas®]

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®

 

[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®