Bonjour

Voici un petit bout de code tout ce qu'il y a de plus simple (issu d'un tutorial) pour envoyer une requête Http via VBA:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim zipResult       As New MSXML2.DOMDocument
Dim zipService     As New MSXML2.ServerXMLHTTP
 
dim stQuery        as string
 
stQuery = "http://webservicex.net/uszip.asmx/GetInfoByZIP?USZip=93542"
 
zipService.Open "GET", stQuery, False
 
 
zipService.send
 
 
zipResult.LoadXML (zipService.responseText)
J'ai constament la même erreur "Operation timed out" sur le zipService.send,
j'ai essayé de changer la valeur des time out avec zipService.setTimeouts

Quelqu'un a-t-il déjà rencontré ce problème?

Merci d'avance pour votre aide.