Raffraichissement automatique

Bonjour, j'ai beau chercher, pas moyen de trouver...

J'ai une macro "import_txt" à relancer toutes les 10 minutes tant que l'utilisateur ne clic pas sur Oui dans une boite de dialogue.

Un truc du genre comme ça... mais ca ne marche pas...

Il faut que tant que l'utilisateur n'arrete pas la macro ça se raffraichisse automatiquement.

Merci d'avance...

Sub raff_Auto()
 Do 
            Application.OnTime Now + TimeValue("00:10:00"), "import_txt"

         If MsgBox("Voulez-vous arreter le rafraichissement automatique des défauts?", vbYes + vbInformation, "rafraichisssement automatique en cours...") = vbYes Then
         End If
  Loop While 1 = 1

End sub

Bonjour,

Une idée :

Sub raff_Auto()
    import_txt
    If Not MsgBox("Voulez-vous arreter le rafraichissement automatique des défauts?", 36, "rafraichisssement automatique en cours...") = vbYes Then
        Application.OnTime Now + TimeValue("00:10:00"), "raff_Auto"
    End If
End Sub

Cordialement,

Merci pour l'info,

j'ai finalement utiliser une autre méthodes,

sans oublier la variable en tête de page,

        Public Uneheure As Date

Sub Actualiser()

        ' Définit l'intervalle avec l'heure actuelle, adapter ici l'intervalle d'actualisation
         Uneheure = TimeSerial(Hour(Time), Minute(Time), Second(Time) + 10)
         Call Mise_a_jours
       ' Appel récursif de la fonction Actualiser
         Application.OnTime Uneheure, "Actualiser"
End Sub            

Sub stop_maj_auto()

        Application.OnTime Uneheure, "Actualiser", schedule:=False

End Sub