Discussion :

[laloune]

Bonjour à tous,

je cherche depuis quelques jours un moyen d'appeler un webservice SOAP (wsdl) au moyen d'une macro en VBA... ce n'est pas pour récupérer des données mais plutôt pour piloter le lancement de jobs ETL

j'ai trouvé des solutions mais elles font appel à une librairie (Microsoft SOAP Library 3.0) qui n'est pas dans Excel 2010, et qui n'est vraisemblablement plus en téléchargement (chaque page de msdn qui en parle semble n'avoir jamais existé, un peu à la "big brother")

auriez-vous une solution pour faire ce genre de manipulation ?

D'avance merci !

[nonopower]

Bonsoir Laloune,
Tu peux trouver le Toolkit 3.0 internet :
http://microsoft-soap-toolkit.softwa...ormer.com/3.0/

Voici un exemple de code qui fonctionne sous l'appel d'un webservice

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 Items
Dim SOAPClient
Dim StrDisplay
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:\Users\nono\Desktop\testexport.xml"

Bon courage

[laloune]

Bonjour nonopower et merci pour ta réponse !

malheureusement sur la page du lien que tu m'as donné:
"The download link is unavailable now. Try visiting the developer's home page."

et en cherchant "soap toolkit 3.0" dans le download center de microsoft:
http://www.microsoft.com/en-us/downl...0toolkit%203.0

j'ai véritablement l'impression qu'on ne le trouve plus nulle part ! ca m'étonne quand même...

EDIT: je l'ai trouvé ici: SOAP Toolkit - CNET Download.com
il est bien spécifié qu'il est "deprecated" et qu'il est remplacé par le framework .NET. Est-ce que ca signifie qu'il faut que j'installe VS et que je commence à coder en .Net ? J'avoue que je n'ai pas trop envie...

merci pour l'aide !

[gwent]

Bonjour nonopower et merci pour ta réponse !

malheureusement sur la page du lien que tu m'as donné:
"The download link is unavailable now. Try visiting the developer's home page."

et en cherchant "soap toolkit 3.0" dans le download center de microsoft:
http://www.microsoft.com/en-us/downl...0toolkit%203.0

j'ai véritablement l'impression qu'on ne le trouve plus nulle part ! ca m'étonne quand même...

EDIT: je l'ai trouvé ici: SOAP Toolkit - CNET Download.com
il est bien spécifié qu'il est "deprecated" et qu'il est remplacé par le framework .NET. Est-ce que ca signifie qu'il faut que j'installe VS et que je commence à coder en .Net ? J'avoue que je n'ai pas trop envie...

merci pour l'aide !

Bonjour

As tu réussi à te connecter à un WebServices?

J'essai également via Access, mais ma connexion retourne une erreur.
Comment as tu fait?

Merci

[jurassic pork]

hello,
bien que cette discussion soit ancienne, voici un exemple de connexion à un webservice. Le webservice est celui de Mantis bug tracker (logiciel de gestion de bug sur serveur web).Pour communiquer avec le webservice à partir de vba j'utilise la bibliothèque Microsoft Office Soap Type Library v3.0 .
1 - dans l'éditeur VBA dans outils/références faire parcourir et choisir le fichier MSSOAP30.DLL dans le répertoire C:\Program Files (x86)\Common Files\microsoft shared\OFFICE14. Bien sûr le répertoire dépend de la version d'office utilisée (pour moi c'est Excel 2010 32 bits). Je ne suis pas sûr que le fichier MSSOAP30.DLL soit disponible dans toutes les versions d'Excel (si quelqu'un peut le vérifier pour sa version d'Excel, indiquer dans cette discussion la disponibilité du fichier pour les versions d'Excel).
2 - Normalement une nouvelle bibliothèque est apparue dans la liste des références : Microsoft Office Soap Type Library v3.0 --> la cocher
Et voici le code pour récupérer la description (champ 18 de la réponse) du premier bug de mantis en utilisant la description wsdl du webservice :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TestWebService()
Dim webservice As SoapClient30
Dim results
Dim Description
 
' Pointer l' API SOAP vers le web service que l'on veut appeler...
Set webservice = New SoapClient30
Call webservice.MSSoapInit(par_WSDLFile:="http://localhost/mantisbt-1.3.0/api/soap/mantisconnect.php?wsdl")
 
' Appel du  web service de récupération de bug
Set results = webservice.mc_issue_get("administrator", "password", 1)
Description = results.Item(18).Text
Set webservice = Nothing
End Sub

et voici un autre exemple qui utilise le webservice gratuit de GlobalWeather pour récupérer le temps actuel à Lille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub TestRecupTemps()
Dim webservice As SoapClient30
Dim results
Dim Description
' Pointer l' API SOAP vers le web service que l'on veut appeler...
Set webservice = New SoapClient30
Call webservice.MSSoapInit(par_WSDLFile:="http://www.webservicex.com/globalweather.asmx?WSDL")
' ' Appel du  web service de récupération du temps à Lille
results = webservice.GetWeather("Lille", "France")
MsgBox results
Set webservice = Nothing
End Sub

Ami calmant, J.P