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