Bonjour,

Dans un contexte industriel, j'ai:
  • Une base informix depuis laquelle j'arrive à extraire des données via un complément excel
  • Une base Firebird à laquelle je n'ai pas accès mais qui dispose de web services (jamais entendu parler auparavant...)


Je souhaiterais extraire des données de cette dernière et faire du reporting en utilisant les deux ensembles de données mais je ne trouve que très peu de documentation, ou alors trop complexe pour moi sur la partie web service

Sous Excel j'ai activé les librairies suivantes : MS HTML object library, MS Soap type library x3.0, MS XML v6.0

Plusieurs web services sont disponibles, et ressemblent à ceci :

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
<wsdl:definitions name="EmployeeAccessDataService" targetNamespace="http://echange.service.open.bodet.com"><wsdl:types><xsd:schema attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://lang.java"><xsd:complexType name="Exception"><xsd:complexContent><xsd:extension base="tns:Throwable"><xsd:sequence/></xsd:extension></xsd:complexContent></xsd:complexType><xsd:complexType name="Throwable"><xsd:sequence/></xsd:complexType></xsd:schema><xsd:schema attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://echange.service.open.bodet.com"><xsd:complexType name="AskedPopulation"><xsd:complexContent><xsd:extension base="tns:EmployeeInformation"><xsd:sequence><xsd:element minOccurs="0" name="populationStartDate" nillable="true" type="xsd:date"/><xsd:element minOccurs="0" name="populationEndDate" nillable="true" type="xsd:date"/><xsd:element minOccurs="0" name="groupFilter" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="populationFilter" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="populationMode" nillable="true" type="xsd:int"/></xsd:sequence></xsd:extension></xsd:complexContent></xsd:complexType><xsd:complexType abstract="true" name="Object"><xsd:sequence><xsd:element minOccurs="0" name="technicalString" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="errorMessage" nillable="true" type="xsd:string"/></xsd:sequence></xsd:complexType><xsd:complexType name="EmployeeInformation"><xsd:complexContent><xsd:extension base="tns:Object"><xsd:sequence><xsd:element minOccurs="0" name="archivedEmployee" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="employeeKey" nillable="true" type="xsd:int"/><xsd:element minOccurs="0" name="employeeBadgeCode" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="employeeIdentificationCode" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="employeeIdentificationNumber" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="employeeSurname" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="employeeFirstName" nillable="true" type="xsd:string"/></xsd:sequence></xsd:extension></xsd:complexContent></xsd:complexType><xsd:complexType name="ArrayOfEmployeeAccessData"><xsd:sequence><xsd:element maxOccurs="unbounded" minOccurs="0" name="EmployeeAccessData" nillable="true" type="tns:EmployeeAccessData"/></xsd:sequence></xsd:complexType><xsd:complexType abstract="true" name="EmployeeInformationAndCriterion"><xsd:complexContent><xsd:extension base="tns:EmployeeInformation"><xsd:sequence><xsd:element minOccurs="0" name="defaultEmployeeBadge" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="defaultEmployeeIdentificationCode" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="currentAccessAuthorizationStartDate" nillable="true" type="xsd:date"/><xsd:element minOccurs="0" name="takenIntoAccountPeriodStartDate" nillable="true" type="xsd:date"/><xsd:element minOccurs="0" name="currentAccessAuthorizationEndDate" nillable="true" type="xsd:date"/><xsd:element minOccurs="0" name="takenIntoAccountPeriodEndDate" nillable="true" type="xsd:date"/><xsd:element minOccurs="0" name="generateBadge" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="currentAccessAuthorizationStartTime" nillable="true" type="xsd:time"/><xsd:element minOccurs="0" name="currentAccessAuthorizationEndTime" nillable="true" type="xsd:time"/><xsd:element minOccurs="0" name="defaultEmployeeIdentificationNumber" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="defaultEmployeeSurname" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="defaultEmployeeFirstName" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="searchUsingBadge" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="searchUsingIdentificationNumber" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="searchUsingSurname" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="searchUsingFirstname" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="isAccessModuleEmployee" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="isTandAModuleEmployee" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="useDefaultModelEmployee" nillable="true" type="xsd:boolean"/></xsd:sequence></xsd:extension></xsd:complexContent></xsd:complexType><xsd:complexType name="ArrayOfAskedPopulation"><xsd:sequence><xsd:element maxOccurs="unbounded" minOccurs="0" name="AskedPopulation" nillable="true" type="tns:AskedPopulation"/></xsd:sequence></xsd:complexType><xsd:complexType name="EmployeeAccessData"><xsd:complexContent><xsd:extension base="tns:EmployeeInformationAndCriterion"><xsd:sequence><xsd:element minOccurs="0" name="currentSectionAbbreviation" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="visitorUsedBadge" nillable="true" type="xsd:int"/><xsd:element minOccurs="0" name="personalCode" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="concernedByAntiPassbacks" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="currentPublicHolidayCalendarApplicationDate" nillable="true" type="xsd:date"/><xsd:element minOccurs="0" name="currentAccessProfileAssigningDate" nillable="true" type="xsd:date"/><xsd:element minOccurs="0" name="currentSectionAssigningDate" nillable="true" type="xsd:date"/><xsd:element minOccurs="0" name="currentAccessProfileAssigningEndDate" nillable="true" type="xsd:date"/><xsd:element minOccurs="0" name="centralAlarmSystemManualActivationAllowance" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="specificSchedulesAllowance" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="specificSchedulesEverywhereAllowance" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="currentPublicHolidayCalendarDescription" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="currentSectionFullDescription" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="currentAccessProfileDescription" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="visitorSectionDescription" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="siteDescriptionOfCurrentAccessProfile" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="receiveVisitor" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="superPass" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="superPassEverywhere" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="extendedTimeout" nillable="true" type="xsd:boolean"/><xsd:element minOccurs="0" name="visitorOfOtherSiteAllowance" nillable="true" type="xsd:boolean"/></xsd:sequence></xsd:extension></xsd:complexContent></xsd:complexType><xsd:element name="exportEmployeeAccessDataList" type="tns:exportEmployeeAccessDataList"/><xsd:complexType name="exportEmployeeAccessDataList"><xsd:sequence><xsd:element minOccurs="0" name="populationFilter" type="tns:ArrayOfAskedPopulation"/></xsd:sequence></xsd:complexType><xsd:element name="exportEmployeeAccessDataListResponse" type="tns:exportEmployeeAccessDataListResponse"/><xsd:complexType name="exportEmployeeAccessDataListResponse"><xsd:sequence><xsd:element minOccurs="0" name="exportedEmployeeAccessData" type="tns:ArrayOfEmployeeAccessData"/></xsd:sequence></xsd:complexType><xsd:element name="importEmployeeAccessData" type="tns:importEmployeeAccessData"/><xsd:complexType name="importEmployeeAccessData"><xsd:sequence><xsd:element minOccurs="0" name="employeeAccessToImport" type="tns:ArrayOfEmployeeAccessData"/></xsd:sequence></xsd:complexType><xsd:element name="importEmployeeAccessDataResponse" type="tns:importEmployeeAccessDataResponse"/><xsd:complexType name="importEmployeeAccessDataResponse"><xsd:sequence><xsd:element minOccurs="0" name="employeeAccessDataInError" type="tns:ArrayOfEmployeeAccessData"/></xsd:sequence></xsd:complexType><xsd:element name="exportEmployeeAccessData" type="tns:exportEmployeeAccessData"/><xsd:complexType name="exportEmployeeAccessData"><xsd:sequence><xsd:element minOccurs="0" name="populationFilter" nillable="true" type="xsd:string"/><xsd:element minOccurs="0" name="groupFilter" nillable="true" type="xsd:string"/></xsd:sequence></xsd:complexType><xsd:element name="exportEmployeeAccessDataResponse" type="tns:exportEmployeeAccessDataResponse"/><xsd:complexType name="exportEmployeeAccessDataResponse"><xsd:sequence><xsd:element minOccurs="0" name="exportedEmployeeAccessData" type="tns:ArrayOfEmployeeAccessData"/></xsd:sequence></xsd:complexType><xsd:element name="Exception" nillable="true" type="ns0:Exception"/></xsd:schema></wsdl:types><wsdl:message name="exportEmployeeAccessDataListResponse"><wsdl:part element="tns:exportEmployeeAccessDataListResponse" name="parameters">
    </wsdl:part></wsdl:message><wsdl:message name="exportEmployeeAccessDataList"><wsdl:part element="tns:exportEmployeeAccessDataList" name="parameters">
    </wsdl:part></wsdl:message><wsdl:message name="importEmployeeAccessData"><wsdl:part element="tns:importEmployeeAccessData" name="parameters">
    </wsdl:part></wsdl:message><wsdl:message name="importEmployeeAccessDataResponse"><wsdl:part element="tns:importEmployeeAccessDataResponse" name="parameters">
    </wsdl:part></wsdl:message><wsdl:message name="exportEmployeeAccessData"><wsdl:part element="tns:exportEmployeeAccessData" name="parameters">
    </wsdl:part></wsdl:message><wsdl:message name="exportEmployeeAccessDataResponse"><wsdl:part element="tns:exportEmployeeAccessDataResponse" name="parameters">
    </wsdl:part></wsdl:message><wsdl:message name="Exception"><wsdl:part element="tns:Exception" name="Exception">
    </wsdl:part></wsdl:message><wsdl:portType name="EmployeeAccessDataServicePortType"><wsdl:operation name="exportEmployeeAccessDataList"><wsdl:input message="tns:exportEmployeeAccessDataList" name="exportEmployeeAccessDataList">
    </wsdl:input><wsdl:output message="tns:exportEmployeeAccessDataListResponse" name="exportEmployeeAccessDataListResponse">
    </wsdl:output><wsdl:fault message="tns:Exception" name="Exception">
    </wsdl:fault></wsdl:operation><wsdl:operation name="importEmployeeAccessData"><wsdl:input message="tns:importEmployeeAccessData" name="importEmployeeAccessData">
    </wsdl:input><wsdl:output message="tns:importEmployeeAccessDataResponse" name="importEmployeeAccessDataResponse">
    </wsdl:output><wsdl:fault message="tns:Exception" name="Exception">
    </wsdl:fault></wsdl:operation><wsdl:operation name="exportEmployeeAccessData"><wsdl:input message="tns:exportEmployeeAccessData" name="exportEmployeeAccessData">
    </wsdl:input><wsdl:output message="tns:exportEmployeeAccessDataResponse" name="exportEmployeeAccessDataResponse">
    </wsdl:output><wsdl:fault message="tns:Exception" name="Exception">
    </wsdl:fault></wsdl:operation></wsdl:portType><wsdl:binding name="EmployeeAccessDataServiceSoapBinding" type="tns:EmployeeAccessDataServicePortType"><soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http"/><wsdl:operation name="exportEmployeeAccessDataList"><soap:operation soapAction="urn:exportEmployeeAccessDataList" style="document"/><wsdl:input name="exportEmployeeAccessDataList"><soap:body use="literal"/></wsdl:input><wsdl:output name="exportEmployeeAccessDataListResponse"><soap:body use="literal"/></wsdl:output><wsdl:fault name="Exception"><soap:fault name="Exception" use="literal"/></wsdl:fault></wsdl:operation><wsdl:operation name="importEmployeeAccessData"><soap:operation soapAction="urn:importEmployeeAccessData" style="document"/><wsdl:input name="importEmployeeAccessData"><soap:body use="literal"/></wsdl:input><wsdl:output name="importEmployeeAccessDataResponse"><soap:body use="literal"/></wsdl:output><wsdl:fault name="Exception"><soap:fault name="Exception" use="literal"/></wsdl:fault></wsdl:operation><wsdl:operation name="exportEmployeeAccessData"><soap:operation soapAction="urn:exportEmployeeAccessData" style="document"/><wsdl:input name="exportEmployeeAccessData"><soap:body use="literal"/></wsdl:input><wsdl:output name="exportEmployeeAccessDataResponse"><soap:body use="literal"/></wsdl:output><wsdl:fault name="Exception"><soap:fault name="Exception" use="literal"/></wsdl:fault></wsdl:operation></wsdl:binding><wsdl:service name="EmployeeAccessDataService"></wsdl:service></wsdl:definitions>
Pour l'instant j'ai essayé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Dim req As New XMLHTTP
 
req.Open "GET", "http://192.168.1.106:8089/open/services/EmployeeAccessDataService?wsdl"
req.send
 
MsgBox req.responseText
Ce qui me renvoie :

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
<?xml version='1.0' encoding='UTF-8'?><wsdl:definitions xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:tns="http://echange.service.open.bodet.com" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:ns1="http://schemas.xmlsoap.org/soap/http" name="EmployeeAccessDataService" targetNamespace="http://echange.service.open.bodet.com">
  <wsdl:types>
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:tns="http://lang.java" attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://lang.java">
  <xsd:complexType name="Exception">
    <xsd:complexContent>
      <xsd:extension base="tns:Throwable">
        <xsd:sequence/>
      </xsd:extension>
    </xsd:complexContent>
  </xsd:complexType>
  <xsd:complexType name="Throwable">
    <xsd:sequence/>
  </xsd:complexType>
</xsd:schema>
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:tns="http://echange.service.open.bodet.com" xmlns:ns0="http://lang.java" attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://echange.service.open.bodet.com">
  <xsd:complexType name="AskedPopulation">
    <xsd:complexContent>
      <xsd:extension base="tns:EmployeeInformation">
        <xsd:sequence>
          <xsd:element minOccurs="0" name="populationStartDate" nillable="true" type="xsd:date"/>
          <xsd:element minOccurs="0" name="populationEndDate" nillable="true" type="xsd:date"/>
          <xsd:element minOccurs="0" name="groupFilter" nillable="true" type="xsd:string"/>
          <xsd:element minOccurs="0" name="populationFilter" nillable="true" type="xsd:string"/>
          <xsd:element minOccurs="0" name="populationMode" nillable="true" type="xsd:int"/>
        </xsd:sequence>
      </xsd:extension>
    </xsd:complexContent>
  </xsd:complexType>
  <xsd:complexType abstract="true" name="Object">
    <xsd:sequence>
      <xsd:element minOccurs="0" name="technicalString" nillable="true" type="xsd:string"/>
      <xsd:element minOccurs="0" name="errorMessage" nillable="true" type="xsd:string"/>
    </xsd:sequence>
  </xsd:complexType>
Il y a donc une communication mais je ne sais pas comment récupérer la moindre donnée, est-ce que quelqu'un pourrait m'orienter un peu svp sur ce cas concret ?

Je dispose également de fichiers html qui semblent expliquer le fonctionnement de chaque service. Pour celui cité plus haut, j'ai par exemple un fichier exportEmployeeAccessDataList.html et un fichier importEmployeeAccessData.html qui contiennent deux tableaux "paramètres entrées" et "paramètres sorties" avec à chaque fois un code + description + type de classe
Exemple :
exportEmployeeJobDataList
export filter
AskedPopulation
archivedEmployee (boolean)
employeeBadgeCode (string)
employeeFirstName (string)
...