J'ai un petit problème avec ma macro (Word certes, mais ça reste du vba office normalement...)
En gros, je fais ne mise en page auto d'un certain nombre de graphs issu d'un classeur excel. Pour que celle-ci se fasse sans anicroche, j'ai du placer des petites tempo à ma sauce entre certaines procédures, selon le modèle suivant:
Code:
Sub Test()
Dim fin As Long
fin = Timer + 1
Do While Timer < fin
DoEvents
Loop
End Sub
sub XXX()
'...
Call Test
'...
End sub
Ca marche très bien, mais parfois, j'ai un pop up 'erreur d'exécution '6' : dépassement de capacité'.... et le pire c'est qu'en relançant la macro ça repart sans problème (F5)
Une idée sur la source du problème et sur une possible résolution?
Merci d'avance
VB_T
edit: une petite piste: blocage sur le fin... il est par exemple a 540504 mais timer est a 54749,2... c'est la virgule le pbm??
... Ca avait l'air de marcher...
Même message d'erreur avec fin dimensionner en single...
valeur de timer = 60507,09 et fin = 60275,04
... c'est reparti ^^' quelqu'un aurai une autre piste??
... Alors la... j'ai le même code que toi et de temps à autres j'ai un dépassement de capacité...
J'ai même tenter de dimensionner en double et j'ai le même problème...
je vais tenter de dimensionner en currency peut être...
Même en Variant il me met le message d'erreur... j'y comprend rien ><
Du coup je pense contourner le problème en mettant la formule magique "on error resume next" et je vais voir ce qu'il se passe...
Merci quand même ^^"
Je vais aussi allez voir sur le fofo que tu m'as indiqué Pierrot ^^
Solution trouver (grâce à JNP) ^^
C'est le Do events qui est de trop... Le re-croisement du timer et du do events (qui intègre un timer) pose problème ^^'
Au final ça donne:
Code:
Sub Test()
Dim fin As Single
fin = Timer + 1
Do While Timer < fin
Loop
End Sub
Merci à vous pour le temps que vous m'avez consacré ^^
tu as laissé le "DoEvents" dans ton code "final"... Jamais constaté ce phénomène dans Excel... maintenant, loin d'avoir tout vu... peut être aussi lié à Word....