Message d'erreur sur la seconde exécution de code

Version imprimable

Bonjour,

Voici le code que j'utilise :
Code:

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:

http.Send

Le code erreur est :

Citation:

"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

27/08/2025, 16h40
jurassic pork

Hello,
A essayer :

Code:

Set http = CreateObject("MSXML2.ServerXMLHTTP")

sinon essayer WinHttp.WinHttpRequest.5.1

Ami calmant, J.P

Malheureusement, cela n'a pas fonctionné.

Mais j'ai trouvé cette solution :

Code:

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
...