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