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

Question

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.

gbinforme · Answer

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

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

1 réponse

Discussions similaires

Newsletters