Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 

MAN

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

Pièces jointes

  • Userform avec fermeture.xlsm
    22 KB · Affichages: 8

Discussions similaires

Réponses
9
Affichages
796
Réponses
8
Affichages
508
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…