Changer d'onglet après un temps d'inactivité du fichier Excel

Fermé
Jonhson13 - 29 févr. 2016 à 10:02
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 29 févr. 2016 à 10:38
Bonjour,

Je n'arrive désespéramment pas à programmer la macro de mon fichier Excel pour faire l'action suivante :
Après 5 minutes d'inutilisation/d'inactivité du fichier, retourner sur le 1er onglet du fichier et enregistrer le fichier.

Pouvez-vous m'aider ??
Tout ce que je trouve sur le net ne semble pas vraiment coller à mon besoin et me semble vraiment lourd en programmation.

Merci par avance pour votre aide.
A voir également:

1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 708
29 févr. 2016 à 10:38
Bonjour,

Est-ce que tu as essayé avec OnTime ?

Dans un module standard
Option Explicit
Public Tps As Date 
Sub Tmp_on()    'Programmation de l'évènement 
    Tps = Now + TimeValue("00:05:00")
    Application.OnTime Tps, "Sauv"
End Sub
Sub Tmp_off()    'Stopper l'évènement OnTime en cours
    On Error Resume Next
    Application.OnTime Tps, "Tmp_on", , False
End Sub
Sub Sauv()    'ta procèdure
....
    Call Tmp_on
End Sub

- Puis, dans le module de code de l'objet ThisWorkbook, on place :
Private Sub Workbook_Open()
    Call Tmp_on
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Tmp_off
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Call Tmp_off
    Call Tmp_on
End Sub

0