fermeture d'excel au bout d'un certain temps

[julzz]

Salut le forum
la semaine derniere il y a une personne qui a laissé une de mes applications excel ouverte toute la journée, et donc je ne pouvais pas y acceder en lecture-ecriture ! je fait donc appel a vos connaissances ! Y aurai-t-il un moyen d'enregistrer et fermer une application (excel) au bout de 1 heure d'inutilisation par exemple???
Merci par avance.
Julzz

 

[galopin01]

Bonsoir,
Dans un module "quelconque" (mais pas dans un module de feuille ni dans ThisWorkbook), poser une variable.

Public IDOR%

Dans le même module "quelconque" coller cette macro :

Sub Dodo()
If IDOR = 0 Then
Application.OnTime Now + TimeValue("01:00:00"), "Dodo"
IDOR = IDOR + 1
Else
ThisWorkbook.Close True
End If
End Sub

Dans ThisWorkbook coller les 2 macros suivantes (ou les compléter si elles existent déjà :

Private Sub Workbook_Open()
Dodo
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
IDOR = 0
Dodo
End Sub

C'est tout !

Commentaire : à l'ouverture du classeur Workbook_Open lance Dodo qui se réveillera dans une heure (TimeValue("01:00:00")) et donne à IDOR la valeur 1.
A chaque fois que la sélection change sur une feuille quelconque, Workbook_SheetSelectionChange réinitialise IDOR et relance Dodo pour 1 heure...

Ok ?

 

[galopin01]

Nota :
Dodo sauvegarde les modifications avant de fermer...

A+