Discussion :

[clarkk]

bonjour, je possede une macro sous exel qui me creer automatiquement une liste (a partir d'une mise a jour de donnée via internet), lorsque j'ouvre mon fichier exel ma mise a jour se fait automatiquement ainsi que ma macro. Ce que je voudrai c'est trouver le code qui me permette de lancer ma macro X seconde apres l'ouverture du fichier (le temps de la mise a jours....)
j'ai essayé avec ceci :

Code :

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

1
2
 
Application.OnTime Now + TimeValue("00:00:10"), "Workbook_Open"

mais le truc c'est que ca s'execute en boucle........

et la ca fait un moment que je bloque.....

merci d'avance

[illight]

Regarde l'expression Wait et regarde l'aide il y a un truc qui te permet de'attendre 10 s dans l'exemple

[clarkk]

merci je vais chercher de ce coté

[SfJ5Rpw8]

b...
Application.OnTime Now + TimeValue("00:00:10"), "Workbook_Open"
[/code]
mais le truc c'est que ca s'execute en boucle........
...

suffit de faire dans un module une procedure dans laquelle tu déplace le code actuellement dans WorkBook_open...

Code :

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

1
2
3
4
5
6
 
Sub MaProcedureInit()
'
' ... le code ancienement dans Workbook_Open
'
end sub

et dans WorkBook open tu met le On_time qui appelle ta nouvelle procedure

Code :

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

1
2
3
4
Sub Workbook_Open ()
 
Application.OnTime Now + TimeValue("00:00:10"), "MaProcedureInit"
end sub

ainsi tu ne repasse pas par la ligne App...onTime.. qui te "rappelle" 10s + tard..

[clarkk]

c'est ce que j'avais fait au debut, ca me parraissait logique mais aparement j'avais du me planter ds les nom de fichiers parceque maintenat ca marche

merci
l'idée du wait me parait interressante aussi je vais essayer de l'utiliser en parallèle par simple curiosité
merci

[ouskel'n'or]

Et si tu remplaçais le timer ou le wait par "DoEvents"
Regarde dans l'aide à quoi ça sert

[clarkk]

Au vu de l'explication de l'aide, je pense que la fonction DoEvents et un peu au dessu de mes capacitées
Du moins pour le moment

[ouskel'n'or]

Meuh non, clarkk, la fonction DoEvents n'est pas au dessus de tes capacitées

DoEvents passe la main au système d'exploitation jusqu'à ce que ce dernier ait terminé de traiter les événements de sa file d'attente et que tous les codes de la file d'attente SendKeys aient été transmis.

C'est à dire, dans ton cas, que la macro va attendre que le fichier soit chargé avant de passer à la suite des opérations

[Ender]

Ouskel'n'or a dit:

L'aide a écrit :
DoEvents passe la main au système d'exploitation jusqu'à ce que ce dernier ait terminé de traiter les événements de sa file d'attente et que tous les codes de la file d'attente SendKeys aient été transmis.

Petite question, si DoEvents donne la main au PC pour qu'il traite les autres tâches, est ce que Sleep fait de même ? Je veux dire par là que si clarkk fait un Sleep 10000, est-ce que le PC va s'occuper d'autres processus ou alors il est "planté" pendant 10 secondes ?

Merci

[clarkk]

En fait elle est pas mal cette fonction c'est vrai que si le temps de mise a jour devien superieur a 10S a cause d'un pb internet (ce qui ne m'etonnerait pas ma macro n'est plus utile et je vais recuperer les ancienne info........


merci pour ce conseil je vais surement l'exploiter.....

[ouskel'n'or]

Petite question, si DoEvents donne la main au PC pour qu'il traite les autres tâches, est ce que Sleep fait de même ? Je veux dire par là que si clarkk fait un Sleep 10000, est-ce que le PC va s'occuper d'autres processus ou alors il est "planté" pendant 10 secondes ?

Non, sleep est comme wait mais en millisecondes