Discussion :

[Peall13]

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

[Arkham46]

Bonjour,

Quel est le status et le message d'erreur ?

[Peall13]

Bonjour Arkham46,

Merci d'essayer de m'aider.

Voilà tout ce je peux te donner comme info :

Contenu des variables :

strWorkflowData = "<Data><strIndice>D</strIndice></Data>".

strWorkflowName= "NW-CreateUpdateDatapackDocSet".

strItemId = N° Id de la ligne dans le SharePoint


objXMLHTTP.Status = 500



objXMLHTTP.statusText = Internal serveur error

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print objXMLHTTP.responseText

<?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Body><soap:Fault><faultcode>soap:Server</faultcode><faultstring>Server was unable to process request. ---&gt; Attempted to perform an unauthorized operation.</faultstring><detail /></soap:Fault></soap

Peall13

[Arkham46]

Bonjour

Ça ressemble plutôt à un problème de droits dans SharePoint.

Je ne connais oas cette partie là....