fermeture fichier

[a10]

Bonjour

je souhaiterai que mon classeur excel se ferme au bout de 15mn par exemple

est il possible?
Si possible je voudrai que les 15mn soit variable;par exemple je met 15 dans cellule a1 (cells(1,1)

par contre comment cela marche si quelqu'un est en cours de saisie sur une cellule?

a+

 

[job75]

Re : fermeture fichier

Bonjour a10,

Placez ces macros dans ThisWorkbook :

Dim t# 'mémorisation

Private Sub Workbook_Open()
'fonctionne même si A1 n'est pas un nombre...
t = Now + Val(Replace(Feuil1.[A1].Text, ",", ".")) / 1440
Application.OnTime t, "ThisWorkbook.Fermer"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not Me.Saved Then Me.Save 'enregistrement automatique
Application.OnTime t, "ThisWorkbook.Fermer", , False
End Sub

Sub Fermer()
If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub

par contre comment cela marche si quelqu'un est en cours de saisie sur une cellule?

Vous n'avez qu'à essayer.

Fichier joint, à télécharger sur le bureau avant de tester.

A+