Timeout sous vba excel (fermeture automatique de l'application)

Soyez le premier à donner votre avis sur cette source.

Vue 10 701 fois - Téléchargée 1 774 fois

Description

Travaillant sur des fichiers Excel multiples et partagés dans le cadre de mon travail, il m'es souvent arrivé d'être coincé par des utilisateurs qui ne ferment pas un classeur Excel et se barrent en verrouillant leur poste de travail. Le fichier est ensuite bloqué en lecture seule. Ce code permet de lancer un timer qui, en cas d'absence de l'utilisateur ferme le classeur Excel après 5mn d'inactivité.
Un Userform s'affiche 20 secondes avant la fermeture pour informer l'utilisateur que l'appli va se fermer, tout mouvement de la souris ou pression sur le clavier relance alors le timer pour 5mn.

Source / Exemple :


Vous retrouverez dans le Zip un classeurs Excel : TimeOut_09_2.xls qui est la version commentée et animée de la Macro.
Vous trouverez ensuite le fichier Time_Out.bas qui est la version finale à importer dans le classeur de votre choix.
Le Userform.frm / .frx, à importer également, c'est le compte à rebour final.
Le ThisWorkbook.cls est un fichier exemple des commandes à utiliser pour utiliser le Timer dans votre propre classeur Excel.
De toute façon, le classeur Excel est commenté et vous donnera toutes les infos nécessaires.
Le classeur utilise la commande OnTime de VBA.

Conclusion :


Avec ce code, je suis maintenant tranquille lorsque mes collaborateurs sortent et laissent leurs applications ouvertes. Elles se ferment toutes seules !!!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
jeudi 1 janvier 2009
Statut
Membre
Dernière intervention
8 juillet 2010

Bonjour

Je voulais savoir si il est possible de modifier le script pour que la détection de mouvement soit uniquement sur le fichier dans lequel se trouve le script. En effet je viens de m'apercevoir que si je travail sur un autre classeur excel, le 1er fichier ne se ferme pas.

Merci d'avance
Messages postés
1
Date d'inscription
mercredi 10 février 2010
Statut
Membre
Dernière intervention
10 mars 2010

Bonjour,

Pouvez vous me dire ou mettre tous ces code dans Microsoft virtual basic (dans quelles cases) pour que le programme fonctionne ? Merci d'avance.
Messages postés
15
Date d'inscription
jeudi 14 octobre 2004
Statut
Membre
Dernière intervention
11 avril 2013

La source est ici :
http://www.vbfrance.com/codes/TESTER-PRESENCE-UTILISATEUR-ISINPUTIDLE_34319.aspx

je n'ai fait que récupérer un code déjà existant. (Merci à l'auteur !!)
La commande détecte l'activité clavier & souris.
Messages postés
38
Date d'inscription
vendredi 3 janvier 2003
Statut
Membre
Dernière intervention
27 novembre 2008

Bonjour,
Ce code est très intéressant mais je ne comprends pas tout au sujet de la Function GetLastInputInfo même si ton programme fonctionne parfaitement.

Comme j'aime bien comprendre, j'ai cherché des infos sur sa mise en oeuvre mais je n'ai rien trouver de probant.
As-tu des liens concernant cette fonction ?

A+
Eric

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.