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 |
