Bonjour,
J'avais créé une macro en octobre 2017 dont voici le code :
J'avais trouvé ce bout de code quelque part sur le net (mais je ne retrouver plus où)
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
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
et le message est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part http.send ""
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 ?
Partager