This code works fine in Excel 2007 but not in Excel 2000. I have the soap
toolkit installed.

I have tried changing ReturnValue for an Object but it doesn't work either.

Any Idea on how can I make this work ?

The Web service don't have parameters and only return a string.
Here's the function

Public Sub CallWebService()
On Error GoTo CallWebService_error

Dim adress As String
Dim ReturnValue As String
Dim soap As SoapClient30

Set soap = New SoapClient30

adress = "http://test.org/Service.asmx?WSDL"

soap.MSSoapInit adress

ReturnValue = soap.GetExcelInfo()

Set soap = Nothing

Exit Sub

CallWebService_error:
Debug.Print Err.Number
Debug.Print Err.Description
End Sub

Thanks In Advance

François Houde

Forgot to say that I have this error message :

-2147467259
Attachment:Maximum retry on the connection exceeded. HRESULT=0x80004005:
Erreur non spécifiée
- Client:An unanticipated error occurred during the processing of this
request. HRESULT=0x80004005: Erreur non spécifiée
- Client:Sending the Soap message failed or no recognizable response was
received HRESULT=0x80004005: Erreur non spécifiée
- Client:Unspecified client error. HRESULT=0x80004005: Erreur non spécifiée


"Francois Houde" wrote:

This code works fine in Excel 2007 but not in Excel 2000. I have the soap
toolkit installed.

I have tried changing ReturnValue for an Object but it doesn't work either.

Any Idea on how can I make this work ?

The Web service don't have parameters and only return a string.
Here's the function

Public Sub CallWebService()
On Error GoTo CallWebService_error

Dim adress As String
Dim ReturnValue As String
Dim soap As SoapClient30

Set soap = New SoapClient30

adress = "http://test.org/Service.asmx?WSDL"

soap.MSSoapInit adress

ReturnValue = soap.GetExcelInfo()

Set soap = Nothing

Exit Sub

CallWebService_error:
Debug.Print Err.Number
Debug.Print Err.Description
End Sub

Thanks In Advance

François Houde