Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Erreur VBA Sharepoint UpdateWorkflow


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Développeur VBA /VB.net
    Inscrit en
    août 2014
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Développeur VBA /VB.net
    Secteur : Finance

    Informations forums :
    Inscription : août 2014
    Messages : 26
    Points : 25
    Points
    25
    Par défaut 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 : 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

  2. #2
    Responsable Access

    Avatar de Arkham46
    Profil pro
    Inscrit en
    septembre 2003
    Messages
    5 804
    Détails du profil
    Informations personnelles :
    Localisation : France, Loiret (Centre)

    Informations forums :
    Inscription : septembre 2003
    Messages : 5 804
    Points : 13 327
    Points
    13 327
    Par défaut
    Bonjour,

    Quel est le status et le message d'erreur ?

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Développeur VBA /VB.net
    Inscrit en
    août 2014
    Messages
    26
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Développeur VBA /VB.net
    Secteur : Finance

    Informations forums :
    Inscription : août 2014
    Messages : 26
    Points : 25
    Points
    25
    Par défaut
    Bonjour Arkham46,

    Merci d'essayer de m'aider.

    Voilà tout ce je peux te donner comme info :

    Contenu des variables :

    strWorkflowData = "&lt;Data&gt;&lt;strIndice&gt;D&lt;/strIndice&gt;&lt;/Data&gt;".

    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

  4. #4
    Responsable Access

    Avatar de Arkham46
    Profil pro
    Inscrit en
    septembre 2003
    Messages
    5 804
    Détails du profil
    Informations personnelles :
    Localisation : France, Loiret (Centre)

    Informations forums :
    Inscription : septembre 2003
    Messages : 5 804
    Points : 13 327
    Points
    13 327
    Par défaut
    Bonjour

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

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

Discussions similaires

  1. Réponses: 5
    Dernier message: 22/05/2007, 23h34
  2. erreur vba access
    Par g_barthe dans le forum VBA Access
    Réponses: 6
    Dernier message: 09/03/2007, 00h12
  3. Message d'erreur VBA
    Par bouba_95 dans le forum Access
    Réponses: 5
    Dernier message: 22/02/2007, 16h27
  4. erreur VBA dans un recordset
    Par rapace dans le forum Access
    Réponses: 4
    Dernier message: 12/10/2005, 16h52
  5. Question Basique Gestion Erreur VBA ...
    Par Le_Phasme dans le forum Access
    Réponses: 2
    Dernier message: 11/10/2005, 14h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo