Lancement d'un lien hypertexte toutes les 15 secondes

Bonjour tout le monde,

J'ai un petit problème concernant un fichier excel.

Je possède sur un feuille (feuille 1) un lien hypertexte. Lorsque celui-ci est lancé, il y aune macro derrière permettant de traiter des donner.

Ce qui m'intéresse est de pouvoir le lancer en mode "automatique" toutes les 15 secondes.

J'ai un code me permettant de lancer le lien hypertexte (ici je n'ai qu'un lien sur la feuille)

  For Each HL In Sheets("TEST").Hyperlinks
HL.Follow
Next
   

Je pense qu'il faut utiliser un "timer" mais je ne sais pas comment le créer.

Ca serait super d'avoir un peu d'aide la dessus.

Bonne journée !!

Bonsoir, ce morceau de code dans "ThisWorkBook"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime Now, "ExecuterTimer", , False
End Sub

Private Sub Workbook_Open()
    Lancer_Le_Lien
End Sub

ce morceau de code dans un module

Sub Lancer_Le_Lien()
    Application.OnTime Now + TimeValue("00:00:15"), "ExecuterTimer"
End Sub

Sub ExecuterTimer()
    For Each HL In Sheets("TEST").Hyperlinks
        HL.Follow
    Next
    Lancer_Le_Lien
End Sub

Pas essayé, désolé.

vbMBHB

Ca marche super bien !!

Je te remercie !

Merci

vbMBHB