Tables
Formulaires
Automation
Administration
Envoyer un mail
Outlook
Dates - Heures
Fichiers
Références
La normalisation
VBA
1008415 visiteurs
8 visiteurs en ligne
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