XL 2010 Fermeture automatique d'un classeur.

[MAN]

Bonjour le forum
bonjour a tous.
j'ai pris un classeur sur le forum et il fonctionne bien. cependant, je souhaiterai que l'userform1 déclenche son compte a rebours pour fermeture si le classeur est inactif pendant 3 minutes
Merci d'avance

 

[sousou]

Bonjour
dans thisworkbook:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Cmp = 30
End Sub


Puis:
Sub Tempo()
UsF.Frame1.Caption = "Fermeture dans : " & Cmp & " seconde" & IIf(Cmp > 1, "s", "")
If Cmp > 0 Then
Cmp = Cmp - 1
Else
ThisWorkbook.Close savechanges:=True
Unload UsF

End If
Application.OnTime Now + TimeValue("00:00:01"), "Tempo", 0
End Sub

 

[MAN]

MERCI sousou. je ne sais pas ce qui coince. mais, le fichier ne fonctionne pas.
ici, j'ai mis le code ci dessus sans résultat.

 

[sousou]

Itu n'as pas corrigé la procédure tempo

 

[MAN]

Merci baucoup sousou. ça marche.