Discussion :

[noftal]

Bonjour,
J'avais créé une macro en octobre 2017 dont voici le code :

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
Function LectureGraphiqueJSON(ByVal vURL As String) As String
    ' permet de stocker dans une variable un texte renvoyé par une URL
 
    Dim strURL As String
    Dim http As MSXML2.ServerXMLHTTP
    ' URL du flux à lire
    strURL = vURL
    ' Lecture du flux
    Set http = New MSXML2.ServerXMLHTTP
    http.Open "GET", strURL, False
    http.send ""
    ' En cas de réussite, le code renvoyé est 200
    If (http.Status <> 200) Then
        LectureGraphiqueJSON = ""
    Else
        ' Transformation du JSON en VBA
        LectureGraphiqueJSON = http.responseText
    End If
    ' On libère les objets
    Set http = Nothing
End Function

J'avais trouvé ce bout de code quelque part sur le net (mais je ne retrouver plus où)

Pour fonctionner, il fallait je crois ajouter dans Outils/références des références.
Voici celles que j'avais choisies :


Entre temps, il me semble que je suis passé de la version Excel 2000 à 2007.
Aujourd'hui, la macro plante sur l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

http.send ""

et le message est le suivant :


Je ne sais pas trop comment adapter ma macro pour résoudre ce bug. Je suppose que ça se passe quelque part au niveau des instructions ou des librairies qui ne sont plus les mêmes pour faire la même chose sur Excel 2007.

quelqu'un a-t-il une idée ?

[AlainTech]

Bonjour,

Site passé de http à https?

[noftal]

Non car il l'était déjà en https quand la macro marchait.

[noftal]

J'ai trouvé la solution : il faut remplacer ServerXMLHTTP par XMLHTTP et enlever les guillemets dans http.send.
En revanche, je ne m'explique pas pourquoi alors que ça marchait avant.