METTRE EN VEILLE SON PC

Private Declare Function SetSystemPowerState Lib "kernel32" (ByVal fSuspend As Long, ByVal fForce As Long) As Long

Private Sub ModeVeille(Parametre As Integer)
    On Error Resume Next
    SetSystemPowerState 1, Parametre
End Sub

'Mise en veille. Question posée sur fermeture connection réseau.
Private Sub Command1_Click()
  ModeVeille 0
End Sub

'Mise en veille forcée. Aucune question ne sera posée.
Private Sub Command2_Click()
  ModeVeille 1
End Sub