Discussion :

[akdmks]

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 :

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>

Pourriez vous m'aider.
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

[akdmks]

Pas d'idée ??
Les seules choses que je trouve parle d'installer un tool kit pour excel et de référencer le wsdl pour créer un objet proxy et tout tout.
La j'ai la requete, l'url, donc pas besoin de tout ca.