Discussion :

[daniel_gre]

Bonjour,

mon programe VBA excel accede a des infomation via une servlet http.
de temps en temps le serveur de cette servlet est down, mais ne retourne pas de time-out.
Alors mon programe VBA est bloque...Un timer interne a VBA ne resoud pas le probleme.
Le code qui collecte les info donner par la servlet est:

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
Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szUrl As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
 
Function DownloadPage(ByVal url As String, ByVal FileName As String) As Boolean
Dim done As Boolean
Dim value As Long
 
    On Error Resume Next
 
    done = True
    If Dir$(FileName) <> "" Then
        Kill FileName
    End If
    value = URLDownloadToFile(0, url, FileName, 0, 0)
    If Dir$(FileName) = "" Then
        done = False
    End If
    DownloadPage = done
End Function

Je souhaiterais faire en sorte que si la serelt ne repond pas, au bout de [n] secondes le progame trap est sorte en error avec un message box par exemple...

Par avance merci de vos conseils

Daniel.

[casavba]

A votre place j'éviterais d'utiliser

Code :

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

 On Error Resume Next

.

Indice : Utilises plutôt une gestion d'erreur en spécifiant le numéro d'erreur renvoyé par excel quand le serveur est down.