XL 2010 Fermeture automatique d'un classeur.

MAN

XLDnaute Occasionnel
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
 

Pièces jointes

  • Userform avec fermeture.xlsm
    23.6 KB · Affichages: 13

sousou

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
9
Affichages
796
Réponses
8
Affichages
508

Statistiques des forums

Discussions
315 135
Messages
2 116 619
Membres
112 815
dernier inscrit
Pierre43