Rafraichissement classeur

bonjour le forum

pour une appli que j'ai créé j'ai besoin d'une MACRO qui lance un rafraichissement (copier coller sur un autre classeur)

j'ai trouvé une macro qui lance une autre macro tout les x temps mais j'aimerais qu'il y est un décompte du temps restant

voir fichier joint.

merci de votre aide eventuel.

Bonjour,

Teste ce qui suit :

Declare Function GetTickCount Lib "Kernel32" () As Long

Dim Finir As Boolean

Sub Minuterie(Milliseconde As Long)

    Dim Arret As Long

    Arret = GetTickCount() + Milliseconde

    Do While GetTickCount() < Arret

        Range("A1").Value = Format((Arret - GetTickCount()) / 1000, "00:00:00")
        DoEvents

    Loop

End Sub

Sub Chrono() 'attacher à un bouton Formulaire par exemple

    'toute les 10 secondes
    Do

        Minuterie 10000
        'ici le code...
        'pour le test, incrémente C1
        Range("C1").Value = Range("C1").Value + 1

        If Finir = True Then Exit Sub

    Loop

End Sub

Sub Arreter() 'de même pour stopper

    Finir = True

End Sub

merci Theze

j'ai fait un essai et il y a un probleme avec excel car je suis en 64 bits .

si tu connais la solution merci d'avance.

Bonjour,

Essaie avec :

Private Declare PtrSafe Function getTickCount Lib "kernel32" Alias "QueryPerformanceCounter" (cyTickCount As  Currency) As Long

ce cous si ces le "Arret = GetTickCount() + Milliseconde" qui bug

j'ai fait un essai sur un 32 bits ça fonctionne avec le premier code.

juste un petit souci avec ma macro qui fait un copier coller d'un premier classeur vers un autre, après l’exécution du code ,le décompte ce fait toujours et lance la macro à intervalle régulier mais la case avec le temps restant ne fonctionne plus et en plus ça bloque mon premier fichier .

je ne peux plus faire de modif

je suis bien dans la m......e