Discussion :

[Invité]

Bonjour à tous,

J'ai dans un fichier Excel une feuille qui se connecte par l'intermédiaire de MicrosoftQuery à une base Oracle.

Dans la majorité des cas pas de soucis.
Cependant je travaille sur une ferme Citrix, c'est un Excel (2003) serveur.

De temps en temps nous avons un ralentissement des serveurs, lorsque je met à jour les données (Resfresh), j'ai un temps d'attente trop long, et excel plante (pas de réponse).

Je ne sais pas comment intercepter le fait que mon appli plante. Où qu'il y'a un soucis.

Voici le code qui lance la mise à jour

Code :

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

1
2
3
4
5
6
7
8
9
10
 
' ***** extraction octal des données de production *****
    Call DeclarationVariables
    Set wks = wkb.Worksheets("Extract_Octal")
    wks.Select
    'wkb.RefreshAll
    Selection.QueryTable.Refresh BackgroundQuery:=True
 
    Set wks = Nothing
    DoEvents

Quelqu'un a t-il une idée

Starec

[doringen]

Je crois que le fait que l´appli plante ne peut pas vraiment être intercepté par l´appli elle-même, vu qu´elle est un peu trop occupée ... à planter justement.
Un de mes collègues avait un problème identique et il utilise pour cela un compteur de temps: il sait que quand sa requète tourne "correctement", elle génère ses résultats en mettons 10 sec, 15 maximum, donc, si le compteur de temps dépasse 15 secondes et que rien n´est sorti, il fait interrompre la requète par le code et quitte excel après sauvegarde.

[Invité]

Re

Pas bête ton truc, as-tu un bout de code.

Starec

[illight]

Oui j'aimerai bien savoir comment on fait un compteur de temps aussi, pour ma culture personnelle

Parce que, a part avec l'application OnTime, je vois pas trop

[illight]

Un truc de ce genre la :

Code :

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

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

Pris dans l'aide de l'application On Time..

[Invité]

Re

Pour le timer j'ai fait des tests, cela ne fonctionne pas, car en fait ma mise à jour est sur une seule ligne

Code :

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

1
2
 
Selection.QueryTable.Refresh BackgroundQuery:=True

Une fois lancé je ne peux faire autre chose

D'autres solutions ?

Starec

[doringen]

Malheureusement, le collègue en question est en vacances et il est le seul à utiliser ce truc.
Cette discussion sur un chronomètre fournit toutefois de bons éléments de départ:
http://www.developpez.net/forums/showthread.php?t=289798&highlight=temps
Mon souci est que je suis pas un expert sur les dll et que je ne connais pas les propriétés et arguments exigés dans GetTickCount...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Declare Function GetTickCount& Lib "kernel32" ()
'...
Sub chrono()
Dim depart As Double
Dim actuel As Double
depart = Now()
actuel = GetTickCount&
Loop Until depart - actuel < 0.0015
Exit Sub
End Sub