VBA et Web services

[Oliv'67]

Bonjour
J'ai essayé de me connecter à un webservice de mon entreprise et j'obtiens ce message Objet Requis erreur d'exécution 424

Voici mon code ... auriez vous une idée du pb ? Merci

Code :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Function MesServices() 
Dim strArray() As String
Dim sp As Object
Dim objXmlDoc As New DOMDocument
Dim objNList As IXMLDOMNodeList
Dim objTableNodes As IXMLDOMNodeList
Dim objDataNode As IXMLDOMNode
Dim RowCount As Integer
Dim PoleMail
 
'Connexion au Service Web
Set sp = CreateObject("MSSOAP.SoapClient30")
 
sp.MSSoapInit "http://ptth/webservices/cg67.astrerh.webservices/public/wsstructures.asmx?wsdl", "WsStructures", "WsStructuresSoap"
'Appel de la méthode du Service Web
 
Set objNList = sp.GetPoles
 
'Chargement des informations
objXmlDoc.LoadXml objNList(0).xml
Set objTableNodes = objXmlDoc.getElementsByTagName("Pole")
    If Not objTableNodes Is Nothing Then
        RowCount = objTableNodes.Length 'Compte le nombre Noeuds/Lignes
        ReDim strArray(RowCount) 'Redim le tableau en fonction du nombre de poles
 
        'Parcours tous les Noeuds
        For i = 0 To RowCount - 1
            Set objDataNode = objTableNodes(i)
 
              On Error Resume Next
              'Ajout l'adresse mail dans le table
              PoleMail = objDataNode.SelectSingleNode("Email").Text
              Debug.Print PoleMail
              If (Len(PoleMail) <> 0) Then
                    strArray(i) = cutMail(PoleMail)
               End If
 
         Next i
 
 
    Else
            MsgBox ("Le ficher ne contient pas d'information."), vbInformation
            Exit Function
 
    End If
'retourne un tableau avec la liste de tous les pôles d'un service
MesServices= strArray
 
 
End Function

[Garuda]

A quelle ligne, l'erreur ????