Discussion :

[ZipperBear]

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

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