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 : 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
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
Partager