Discussion :

[olivertwist]

J'ai une macro qui update toutes les secondes et qui fait un copier coller de valeurs à chaque seconde pour garder un historique.

Je souhaiterai faire tourner une autre macro assez semblable, cependant quand je lance une 2eme macro (meme dans une 2eme appli excel), les 2 se mélangent et il me fait le copier coller de l'un dans l'autre ou vice versa.

La solution que j'envisage et de décaler la 2ème macro de 1 ou 2 dixième de seconde afin que les 2 ne se parasitent plus.

Cependant ma fonction heure n'a pour l'instant une précision que d'une seconde...

Est il possible d'avoir une précision en dixième ou en fraction de seconde ???

Voici le code de ma macro Time

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub UpdateClock()
 
'compteur
Compteur = Compteur + 1
'Met à jour la cellule A1 avec l'heure en cours
Windows("Time_v2.xls").Activate
ThisWorkbook.Sheets("Time").Range("A2") = Time
 
'Définit le prochain évènement 1 sec après maintenant
 
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "UpdateClock"

Merci d'avance à tous ceux qui se pencheront sur cette question

[olivertwist]

J'ai essayé d'adapter gettickcount comme pour le chronomètre
http://www.developpez.net/forums/sho...ht=chronometre

Hélas sans succès

Ou merci de me dire si ce n'est pas possible

[random]

le problème c'est que tu considéres que ta macro ne prend aucun temps
si elle va chercher l'info sur un reuter par exemple tu risques de saturer un peu


je te conseille la chose suivante
boucle for x=1 to 10000 par exemple
lire la valeur ecrire la valeur écrire time dans une feuille excel
next x

en dépouillant ton fichier tu connaitras le temps nécessaire

[olivertwist]

Je sais bien que ma 1ere macro prend 1 ou 2 dixiemes de secondes à s'executer.

C'est pour cela que je souhaiterai décaler la deuxième disons de 0,5 seconde histoire de pouvoir en faire tourner au moins 2 en même temps.

Application.OnTime Now + 0.000006 +TimeValue("00:00:01"), "UpdateClock"


0.000006 correspondant à peu près à une demi seconde mais la conséquence a été en rafraichissement toutes les 02,000 secondes exactement au lieu des 1 sec décalées d'une demi seconde comme esperé.

Bref je desespère...

[olivertwist]

Si vous pensez que ce n'est pas possible , dites le moi svp que je ne bloque pas pour rien ...

Merci

[dadavyvy]

Essaie avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub UpdateClock()
    Do While True
        Me.Range("A2") = Time
        DoEvents
    Loop
End Sub

Rem. dans ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'compteur
Compteur = Compteur + 1
'Met à jour la cellule A1 avec l'heure en cours
Windows("Time_v2.xls").Activate
ThisWorkbook.Sheets("Time").Range("A2") = Time

je ne vois pas à quoi sert le compteur, d'activer l'autre classeur, et le rapport avec la cellule A1...