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 :
Nom : Capture.JPG
Affichages : 1121
Taille : 46,4 Ko

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 :
Nom : Capture2.JPG
Affichages : 1082
Taille : 17,9 Ko

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 ?