Discussion :

[lva30]

Bonjour.

Je rencontre une difficulté avec xmlhttp.getResponseHeader.
Si l'instruction se déroule mal (par exemple une image contenant des erreurrs), alors le ON ERROR RESUME NEXT ne fonctionne pas correctement.
Il me renvoit après l'appel de la sous-routine principale qui a une boucle de traitement et qui appel une autre sous-routine pour récupérer les infos du header.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
on error resume next
...
sous()
...
 
wscript.quit
 
 
sub sous()
..
Do while not rs.eof
...
lechttp()
...
Loop
 
end sub
 
sub lechttp()
...
qLast = xmlhttp.getResponseHeader("Last-Modified")
if Err.Number <> 0 then
...
end if
...
end sub

Si tout va bien, la routine s'éxécute complètement.
Si le header n'est pas lisible, le script ne passe même pas à l'instruction du err.number et saute directement après l'appel de la routine sous() en ligne 5 dans ce cas.
Je ne comprends pas pourquoi.
Quelqu'un a-t'il déjà été confronté à ce genre de problème ?

[ProgElecT]

Salut

Que dire sinon que le on error resume next n'est pas placé au bonne endroit.
L'exemple de code donné ne permet pas vraiment de définir ou il devrait être placé, en général on traite l'erreur dans la même Sub ou Function que la ligne on error .... ou bien on fait renvoyer un drapeau depuis la Sub ou Fuction qui risque de provoquer une erreur.

[lva30]

Le "on error" est placé en début de script.
Il me semblais que l'on ne pouvait pas en spécifier plusieurs, qu'il était dédié au script complet.

[ProgElecT]

Personnellement je pratiquerai comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim Msg
'----------------------------------------------------------------------------------------------------------------------
...
sous()
...
 
wscript.quit
 
 
'----------------------------------------------------------------------------------------------------------------------
sub sous()
..
Do while not rs.eof
	...
	lechttp()
	If Msg <> "" then msgbox Msg
Loop
 
end sub
'----------------------------------------------------------------------------------------------------------------------
sub lechttp()
...
On Error Resume Next
Msg = ""
qLast = xmlhttp.getResponseHeader("Last-Modified")
If Err.Number <> 0 Then
	Msg = Err.Description 
	Err.Clear
	Exit Sub
end if
...
end sub