Blocage sipmle requête SOAP vba

Version imprimable

Bonsoir,
Je cerche à construire une requete SOAP via VBA en utilisant la librairie SOAP Toolkit (3.0).
Je n'arrive pas à renvoyer l'information via le code ci-dessous
Code:

1 2 3 4 5 6 7 8 9 10 11 WebServerLocation = "http://www.mobilefish.com/services/web_service/countries.php" Set SoapClient = CreateObject("MSSOAP.SoapClient30") SoapClient.ClientProperty("ConnectorProgID") = "MSSOAP.WinInetConnector30" SoapClient.mssoapinit WebServerLocation & "?wsdl" SoapClient.ClientProperty("ServerHTTPRequest") = True SoapClient.ConnectorProperty("ConnectTimeout") = 30000 SoapClient.ConnectorProperty("EndPointURL") = WebServerLocation couco = SoapClient.countryInfoByIana("FR")
Erreur VBA 450 : Nombres d'arguments incorrects ou affectation de propriété incorrecte.
La fonction sur le WSDL s'appelle countryInfoByIana (vérifiée via soapui).

Auriez vous une idée ?

Je vous remercie d'avance.

Arnaud

16/08/2012, 11h32
tsuji
Qu'il va retourner une instance d'implémentation de IXMLNodeList, ça c'est sûr. Donc, en tout cas, la syntaxe est faute déjà et il se peut que c'est sufficient de corriger celà tout seul.
Code:

1 2 'couco = SoapClient.countryInfoByIana("FR") Set couco = SoapClient.countryInfoByIana("fr")

HEllo Tsuji.
En effet, je n'avais pas pensé à passer par un set pour receuiller l'IXMLDOMSelection
Pour ceux qui en aurait besoin un jour, je mets le code avec la sauvegarde du résultat du webservice directement en xml.
Il suffit de passer les données dans Acces ou dans excel (via import).
Merci pour tout

Code:

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
 
Dim WebServerLocation As String
Dim unDocument  As New DOMDocument60
Dim unElement   As IXMLDOMElement
Dim unNoeud     As IXMLDOMNode
Dim sRecherche  As String
Dim sResultat   As String
Dim sNameSpace  As String
 
 
WebServerLocation = "http://www.restfulwebservices.net/wcf/StockQuoteService.svc"
 
Set SOAPClient = CreateObject("MSSOAP.SoapClient30")
SOAPClient.ClientProperty("ConnectorProgID") = "MSSOAP.WinInetConnector30"
 
SOAPClient.mssoapinit WebServerLocation & "?wsdl"
SOAPClient.ClientProperty("ServerHTTPRequest") = True
SOAPClient.ConnectorProperty("ConnectTimeout") = 30000
SOAPClient.ConnectorProperty("EndPointURL") = WebServerLocation
 
Set ret = SOAPClient.GetStockQuote("IBM")
 
 
Set unElement = ret.Context
Call unDocument.loadXML(unElement.XML)
unDocument.async = True
unDocument.validateOnParse = True
unDocument.Save "C:\testexport.xml"

23/08/2012, 16h32
Oliv'67

Bonjour
J'ai essayé ton exemple et ça marche :)
J'ai essayé de l'adapter à Webservice de ma boite(J'envoie une adresse mail et le service web est censé me retourner la direction de l'agent ...) et là ça ne marche pas ...
quand j'arrive à la ligne set ret = ... j'ai un msg d'incompatibilité de type ...

Comment définissez vous la variable ret ?
J'ai essayé différentes manière de déclarer "Ret" mais j'obtiens alors "Objet requis"

Auriez vous une idée pour résoudre problème ?

Merci d'avance
24/08/2012, 13h16
tsuji

Citation:

Comment définissez vous la variable ret ?

Il faut lire le contrat, le wsdl document, pour y arriver; il ne se fait pas dans spéculation.
25/08/2012, 10h10
nonopower

Bonjour,
Je ne pense pas que cela vient de la variable.
Tu peux comme même la déclarer (Dim ret As New IXMLDOMSelection).

1)
Est ce que les paramétres passés en argument sont bons ?

2)
Quand tu testes le code pour récupérer la cotation d'un titre (à ton bureau), est ce que cela fonctionne ?

3)
Essaye de désactiver le requetage HTTP (peu probable que cela soit ca car tu aurais uen erreur soap)
SOAPClient.ClientProperty("ServerHTTPRequest") = false