Discussion :

[nonopower]

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 :

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

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

[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 :

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

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

[nonopower]

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 :

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
 
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"

[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

[tsuji]

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.

[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