Récupération directe de données dans Excel par power query

Bonjour à tous,

Power query (intégré à certaines versions d'excel) permet de récupérer des informations de plusieurs sources, dont celles des stations Hummbox par l'intermédiaire d'un lien internet.

La requête de départ a le format suivant:

Source = Json.Document(Web.Contents("lien internet", [Headers=[Authorization="bearer ABCDE"]]))

ABCDE est un faux exemple de token qui doit être remplacé par le véritable token récupéré ainsi:

Lien pour récupérer le token : https://app-authentication.humm-box.com/user/token (attention retirer les "").

le "lien internet" est suivant l'objectif recherché un des liens "GET" décrits ici: https://api-explorer.humm-box.com.

Exemple, récupération des listes des stations:

Source = Json.Document(Web.Contents("("https://server.humm-box.com/api/devices", [Headers=[Authorization="bearer ABCDE"]]))

Ce n'est pas plus compliqué. Le reste est de la manipulation power query et transfert vers excel pour ceux qui connaissent.

A votre disposition si vous avez des questions.

Ph.J.Drouhin

PS: Il m'a été indiqué par Hummbox que le token change tous les 10 jours. Je n'ai pas de solution automatisée pour le récupérer.