Discussion :

[will Igetit]

bonjour,

j'ai le probleme suivant j'ai un premier workbook qui s'update(a partir d une base de donnee online mise a jour quotidiennement) et qui a une macro va informer un second qui s'ouvre automatiquement a l'ouverture du premier. mon probleme est le suivant ma macro gerer dans le premier doc n'attend pas que le doc se soit update pour fonctionner et donc cela plante ... est ce que quelqu'un a un solution pour faire patienter ma macro?

[Taillise]

Bonsoir,
le premier s'update comment? ne peux-tu asservir l'ouverture du second à la mise à jour de l'un des éléments du premier?

[will Igetit]

le nombre d'element qui s'uptade est variable(dernier annee de jour ouvrable et donc il n'y a pas le meme nombre de jour a chaque ouverture....) si en revanche il etait possible de faire dependre la mise en route de la macro de la fin ou meme d'un temps donnee... je ne sais meme pas si c possible

[Taillise]

Tu peux toujours retarder le déclenchement de l'ouverture du deuxième classeur par un code tel que celui-ci (que je tire d'un exemple de fring):

Code :

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

Application.OnTime Now + TimeValue("00:00:05"), "macro à déclencher"

mais si la mise à jour demande un temps variable ce n'est pas rationnel. Qu'est-ce qui déclenche l'update?

[bmxer31]

J'avais besoin de faire un truc un peu dans ton style récemment et reprennant le code de Taillise (donc de Fring), y'a un moyen simple d'obtenir une temporisation qui attend jusqu'à ce que le document soit updaté.

Code :

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

1
2
3
4
5
6
7
8
9
 
On error GoTo Wait
 
Wait:
Application.OnTime Now + TimeValue("00:00:01")
 
"Lancement de ta macro"
 
On error Go To 0

En clair si y'a une erreur, la macro attend 1s avant de lancer l'autre macro et ainsi de suite jusqu'à ce qu'il n'y ai plus d'erreur. Dans mon cas ça marche très bien, mais peut être que ça ne s'intègrera pas bien dans ton code.

[will Igetit]

laors ce que jai fait et qui fonctionne das ce cas precis c

Code :

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

1
2
3
4
5
6
7
Dim storedCalcType
'storedCalcType = Application.Calculation
'Application.Calculation = xlCalculationManual
'Application.ScreenUpdating = False
'Application.Calculate
'Application.ScreenUpdating = True
'Application.Calculation = storedCalcType

puis ensuite
'Application.Calculation = xlCalculation automatic