Bonjour,
pour les besoin d'un outil de vérification, j'ai besoin d'envoyer des messages SOAP en rafale via excel.
Dans un premier temps je vais me contenter d'en envoyer un seul et de mettre l'acquittement dans une cellule.
Voici en gros le message :
Pourriez vous m'aider.
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 <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:m0="http://gestion.modele.det.canal"> <SOAP-ENV:Body> <m:in3 xmlns:m="http://service.integration.det.canal"> <m0:entete> <m0:signature>p_signature_p</m0:signature> <m0:source>p_source_p</m0:source> </m0:entete> <m0:ma> <m0:idMateriel>p_idMateriel_p</m0:idMateriel> <m0:typeMa>p_typeMa_p</m0:typeMa> </m0:ma> <m0:typeCode>p_typeCode_p</m0:typeCode> </m:in3> </SOAP-ENV:Body> </SOAP-ENV:Envelope>
J'ai essayé avec un peu de code mais je m'emmelle les pédales.
Exemple :
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 Private Sub CommandButton1_Click() Dim objHTTP As New MSXML2.XMLHTTP Dim objReturn As New MSXML2.DOMDocument Dim strEnvelope As New MSXML2.DOMDocument strEnvelope.createTextNode ("SOAP-ENV:Envelope xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:SOAP-ENC=""http://schemas.xmlsoap.org/soap/encoding/"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:m0=""http://gestion.modele.det.canal""><SOAP-ENV:Body><m:in3 xmlns:m=""http://service.integration.det.canal""><m0:entete><m0:signature>SVC-CODE-01.01</m0:signature><m0:source>IHM</m0:source></m0:entete><m0:ma><m0:idMateriel>13000000001</m0:idMateriel><m0:typeMa>13</m0:typeMa></m0:ma><m0:typeCode>PARENT</m0:typeCode></m:in3></SOAP-ENV:Body></SOAP-ENV:Envelope>") objHTTP.Open "post", "http://xxx.xxx.xxx.xxx:xxx/det-mes/services/DetConsultationServices" objHTTP.setRequestHeader "Content-Type", "text/xml" objHTTP.send (strEnvelope) objReturn = objHTTP.responseText End Sub
Partager