Discussion :

[zoom61]

Bonjour,

Voici le code que j'utilise :

Code vb :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
...
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", FicLangage, False
    http.Send
    If http.Status = 200 Then
        jsonText = http.responseText
        Set json = MOD_JsonConverter.ParseJson(jsonText)
    Else
        Exit Function
    End If
 
    Set http = Nothing
...

Si j'ouvre mon fichier une premi�re fois, le code fonctionne correctement.

Mais si je ferme et reouvre le fichier le code se plante syst�matiquement sur la ligne :

Code vb :

S�lectionner tout - Visualiser dans une fen�tre � part

http.Send

Le code erreur est :

"Erreur d'ex�cution '-2147024891 (80070005)': Acc�s refus�""

Mais si je mets mon lien https dans Edge ou l'explorateur de fichiers cela fonctionne correctement !!! Je pr�cise que l'acc�s au fichier ne n�cessite pas de user/pwd.

Avez-vous une id�e de mon erreur ?

Merci

[jurassic pork]

Hello,
A essayer :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

Set http = CreateObject("MSXML2.ServerXMLHTTP")

sinon essayer WinHttp.WinHttpRequest.5.1

Ami calmant, J.P

[zoom61]

Malheureusement, cela n'a pas fonctionn�.

Mais j'ai trouv� cette solution :

Code vb :

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
...
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", FicLangage, False
    http.setRequestHeader "Host", "https://xxxxx.sharepoint.com/"
    http.setRequestHeader "Accept", "application/json"
    http.setRequestHeader "Accept-Encoding", "gzip, deflate, br"
    http.setRequestHeader "Content-Type", "application/json"
    http.setRequestHeader "Accept-Language", "fr,fr-FR;q=0.8,en-US;q=0.5,en;q=0.3"
    http.setRequestHeader "Referer", "https://xxxxx.sharepoint.com/"
    http.setRequestHeader "Origin", "https://xxxxx.sharepoint.com/"
    http.Send
    If http.Status = 200 Then
        jsonText = http.responseText
        Set json = MOD_JsonConverter.ParseJson(jsonText)
    Else
        Exit Function
    End If
...

[Thumb down]

Bonsoir,
L'erreur a la deuxi�me ex�cution est du sans doute au fait que l'URL n'est pas refermer.

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
Function GetJson(FicLangage As String) As Object
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", FicLangage & "?nocache=" & Replace(CStr(Timer), ",", "."), False
        .Send
        If .Status = 200 And Len(.responseText) > 0 Then
            Set GetJson = MOD_JsonConverter.ParseJson(.responseText)
        Else
            Set GetJson = Nothing
        End If
    End With
End Function

[zoom61]

Bonsoir,
L'erreur a la deuxi�me ex�cution est du sans doute au fait que l'URL n'est pas refermer.

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
Function GetJson(FicLangage As String) As Object
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", FicLangage & "?nocache=" & Replace(CStr(Timer), ",", "."), False
        .Send
        If .Status = 200 And Len(.responseText) > 0 Then
            Set GetJson = MOD_JsonConverter.ParseJson(.responseText)
        Else
            Set GetJson = Nothing
        End If
    End With
End Function

Cela ne fonctionne pas