Erreur VBA Sharepoint UpdateWorkflow
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:
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
