Bloquer la mise en veille

Bloquer et empêcher la mise en veille du PC

Il peut arriver que l'on veuille effectuer des sauvegardes automatiques ou d'autres accès à la base à une période déterminée.

Pour cela, il faut que le PC ne se mette pas en veuille de manière incontrôlée.

Un petit utilitaire et quelques lignes de code sous forme d'une fonction résout ce problème.

D'abord, on récupère l'utilitaire Caffeine sur le site de l'auteur ou ici et que l'on placera (dézippé) dans le même répertoire que la base.

Ensuite, on place la fonction dans un module général.

Dans le code, il suffira d'activer le blocage de la mise en veille.
 

NoSleep True
'/
'/ placez ici le code que l'on souhaite exécuter
'/
NoSleep False

La fonction toute simple :

Function NoSleep(OnOff As Boolean)
    '---------------------------------------
    ' Il faut placer le petit utilitaire "Caffeine.exe"
    ' dans le même répertoire que la base de données
    '
    ' Syntaxe
    '=========
    ' Pour empêcher la mise en veille du PC :
    ' NoSleep True
    ' et lorsque la tâche est effectuée :
    ' NoSleep False
    '----------------------------------------
    Dim sApp As String
    sApp = CurrentProject.Path & "Caffeine.exe"

    If OnOff Then
        Shell sApp
    Else
        Shell sApp & " -appexit"
    End If
End Function