2 pièce(s) jointe(s)
Macro VBA ne fonctionne plus
Bonjour,
J'avais créé une macro en octobre 2017 dont voici le code :
Code:
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 :
Pièce jointe 397602
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 :
Pièce jointe 397606
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 ?
