Macro temporisé toutes les 5 minutes

Bonjour,

J'ai un fichier excel type MENU sur lequel j'ai différents boutons pour ouvrir d'autres documents. Notamment un bouton planning.

Donc lorsque que j'appui sur Planning, un fichier excel planning s'ouvre à coté de mon fichier MENU.

Maintenant, je voudrais que si le bouton Planning est active, toute les 5minutes, ce bouton repasse en OFF puis repasse sur ON de manière à fermer pour rouvrir le document.

J'ai tester If Planning.Value = True and Application.OnTime Now + TimeValue("00:05:00") Then

Planning.Value = False

Wait 10s

Planning.Value = True

End If

Mais ça marche pas.

Quelqu'un à une idée ?

Sub testTempo()
Application.DisplayAlerts = False
  Dim wb1 As Workbook
  Dim fichier$
  Dim hDeb, hFin, delai

  fichier = 'chemin du fichier à ouvrir
  hDeb = Now
  delai = 1
  hFin = DateAdd("n", delai, hDeb)

  While Now < hFin
    Workbooks.Open Filename:=fichier
    Set wb1 = ActiveWorkbook
    If Application.Wait(Now + TimeValue("0:00:10")) Then
      wb1.Close
    End If
  Wend

Application.DisplayAlerts = True
End Sub