1 pièce(s) jointe(s)
Appel d'un webservice SOAP (wsdl)
Bonjour à tous,
J'ai lu cette discussion.
Un grand merci Jurassic Pork, pour la solution apportée!
Je me suis prêté au même exercice pour le site VIES, mais sans succès, aurais-tu une idée?
Voici le retour
Pièce jointe 261409
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Sub SOAP_VIES()
Dim webservice As SoapClient30
Dim resultat, name, adresse
Set webservice = New SoapClient30
Call webservice.MSSoapInit(par_WSDLfile:="http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl")
Set resultat = webservice.checkVat("FR", "51306138900")
MsgBox resultat
Set webservice = Nothing
End Sub |
Merci,
