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

Jonhson13 -  
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   -
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

Réponse 1 / 1
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
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