Discussion :

[nehoc]

Je voudrais recueillir, dans une feuille du classeur, le résultat d'une requête url .

L'url, écrite dans la cellule A1, est la suivante :

"https://api.dailymotion.com/user/i24news-fr/videos?fields=channel,description,title,url"

J'utilise le code suivant :

Code :

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

1
2
Range("A1").Select
 Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Lorsqu'elle s'exécute, le résultat apparaît dans le navigateur. Comment puis-je le récupérer dans une feuille du classeur ?

Merci pour votre aide

[patricktoulon]

re
bonjour
c'est un JSON a telacharger ton URL il te faut utiliser "microsoft.xmlhttp" et soit responsebody pour telecharger le json et avec ado streamer le resulat et recuperer le .text du stream

[patricktoulon]

si ca peut t'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
URL = "https://api.dailymotion.com/user/i24news-fr/videos?fields=channel,description,title,url"
Set req = CreateObject("microsoft.xmlhttp")
With req
.Open "get", URL, False
.send
Texte = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(.responsetext, "\u00e9", "é"), "\u00e0", "à"), "\u00e8", "è"), "\u00e2", "â"), "\u00f9", "u"), "\u00a0", " "), "\u00e7", "ç"), "\u00eb", "ë")
Texte = Replace(Replace(Replace(Replace(Texte, "\u00ee", "î"), "\u00ea", "ê"), "\u201c", " "), "\u201d", "")
Texte = Split(Replace(Texte, "{""channel"":""news"",""", " "), "[")(1)
Debug.Print Replace(Join(Split(Texte, "description"), vbCrLf), vbCrLf & """:""", vbCrLf)
End With
End Sub

[Marc-L]

Bonjour,

ou encore une fois, effectuer une recherche dans ce forum des discussions traitant déjà ce sujet (requête + JSON) …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[nehoc]

Bonjour Patricktoulon

Merci pour ta réponse.

Cela a marché du premier coup et c'est exactement ce que je recherchais : une solution avec VBA car je ne connais que ce langage.

[patricktoulon]

re
bonjour
si ca te convient met ce post en resolu