Les mémos

Fermer Tables

Fermer Requêtes

Fermer Formulaires

Fermer Etats

Fermer Modules

Fermer Base

Fermer Automation

Fermer Administration

Fermer Registre

Fermer String

Fermer Email CDO

Fermer Outlook

Fermer Net

Fermer Dates - Heures

Fermer Fichiers

Fermer Références

Fermer Vrac

Je débute...

Fermer La normalisation

Fermer VBA

Attention
Aucun support
par émail !

Utilisez le forum pour les questions/réponses concernant MsAccess et les codes que vous trouverez sur ce site.
Visites

   visiteurs

   visiteurs en ligne

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

'/ 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


Date de création : 11/01/2016 : 13:05
Dernière modification : 11/01/2016 : 13:34
Catégorie : Modules
Page lue 656 fois


Imprimer l'article Imprimer l'article

Recherche



Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
Captcha
Recopier le code :
Au sujet de l'auteur
L'auteur qui fréquente (fréquentait) le forum microsoft.public.fr.access a eu le plaisir d'être nommé MVP Office-Access de janvier 2003 à décembre 2011.

Qui sont les MVP ?

Divers ;-)
Nous contacter

Haut