Bonjour,

Je viens vers vous car impossible de trouver la solution sur notre ami google depuis maintenant plusieurs jours.

Pour faire simple j'ai un fichier Excel qui communique avec un SharePoint, jusqu'ici il marchait très bien sur Office 2010

Notre service informatique nous migre sur Office 2013 et forcément le code ne fonctionne plus.

Mon Bug viens de l'update du Workflow qui génère un web dossier sur le SharePoint.

Quoi que je fasse, après le .Send, j'ai forcément ma condition d'erreur en fin de procédure qui s'enclenche.

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
 
Dim objXMLHTTP As MSXML2.XMLHTTP60
    Dim objNodesCollection As IXMLDOMSelection
    Dim strSoapBody As String
 
    Set objXMLHTTP = New MSXML2.XMLHTTP60
 
    objXMLHTTP.Open "POST", strSiteUrl, False
    objXMLHTTP.setRequestHeader "Content-Type", "text/xml; charset=""UTF-8"""
    objXMLHTTP.setRequestHeader "SOAPAction", "http://nintex.com/StartWorkflowOnListItem"
 
    strSoapBody = "<?xml version='1.0' encoding='utf-8' ?>" _
        & "<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>" _
                & "<soap:Body>" _
                    & "<StartWorkflowOnListItem xmlns='http://nintex.com'>" _
                        & "<itemId>" & strItemId & "</itemId>" _
                        & "<listName>" & strListId & "</listName>" _
                        & "<workflowName>" & strWorkflowName & "</workflowName>" _
                        & "<associationData>" & strWorkflowData & "</associationData>" _
                    & "</StartWorkflowOnListItem>" _
                & "</soap:Body>" _
        & "</soap:Envelope>"
    'Debug.Print strSoapBody
 
    objXMLHTTP.send strSoapBody
 
    If objXMLHTTP.readyState = 4 Then
        If objXMLHTTP.Status = 200 Then
            'Debug.Print objXMLHTTP.responseText
            RunNintexWorkflowOnItem = True
        Else
            MsgBox "Erreur RunWorkflow :" & objXMLHTTP.Status & " - " & objXMLHTTP.statusText & " : \n" & objXMLHTTP.responseText
            RunNintexWorkflowOnItem = False
        End If
    End If
 
    Set objXMLHTTP = Nothing
Je précise que cette procédure fonctionne parfaitement sur un Socle Office 2010

Si quelqu'un à peut m’aiguiller sur le correctif ça serait le top !

merci d'avance

Peall13