Excel QueryTables - Requête sur une URL protégée - Est-ce possible ?

Bonjour à tous

Je suis actuellement occupé à mettre à jour une application VBA Excel que j'ai développé et qui fait entre autres des requêtes vers des APIs et donc, des appels à des URL telles que https://monsite/api/clients (pour avoir un array avec tous mes clients) p.ex.

Le code VBA est fonctionnel depuis six mois. Tout baigne ... toutefois, je viens d'ajouter une protection HTTP sur les APIs : quand on accède à l'URL, un popup s'affiche pour demander un login et un mot de passe. Ce popup, c'est celui du navigateur car la protection en place est faite au travers d'une protection "HTTP Basic Authentication" (en terme Apache: j'ai mis un fichier .htpasswd dans mon projet PHP).

Pièce jointe 508786

Et là, mon code ci-dessous ne fonctionne plus car il faut pouvoir transmettre à Excel le login et le mot de passe à utiliser.

Le code fonctionnel (avant protection):

Code:

---

1 2 3 4 5 6 7

With ActiveSheet.QueryTables.Add(Connection:="URL;https://UNE_URL_VALIDE", Destination:=Range("a1")) .BackgroundQuery = True .TablesOnlyFromHTML = True .Refresh BackgroundQuery:=False .SaveData = True End With

---

Pour info, en VBA pur, je peux construire une requête HTTP GET, transmettre dans les headers de mon appel le login et le mot de passe et j'ai bien mon résultat attendu dans le "body" de la réponse.

Le truc, c'est que j'aimerais continuer à utiliser la puissance des QueryTables d'Excel et je souhaiterai conserver mon code où j'utilise des QueryTables.

Mes premières lectures semblent indiquer que QueryTable ne gère pas l'authentication. Avez-vous une quelconque expérience à ce sujet ?

Merci à tous.

La nuit portant conseil et ne pouvant trop attendre une solution, j'ai mis en place l'astuce ci-dessous.

En quelques mots :

* Dans ma solution Excel, j'utilise VBA-Web (https://github.com/VBA-tools/VBA-Web) qui permet de simplifier les appels à des URLs (il vous faudra donc importer les différentes classes si ma solution vous intéresse)
* Je fais un appel à WebClient pour récupérer la réponse de mon API (ici, pour ce besoin précis, l'API retourne un code HTML avec un <table>...</table>)
* Lors de l'initialisation, je lui passe entre autres le login et le mot de passe HTTP Basic Auth
* Si l'appel (Execute) est OK, ma réponse HTML est alors sauvée dans un fichier texte sur mon disque au format UTF-8 afin de correctement gérer les accents
* Mon QueryTable ne fait donc plus un appel URL (ce qui était mon problème évoqué plus haut) mais FILE et là, je vais rechercher mon fichier temporaire.
* Finalement, une fois mon tableau importé dans ma sheet Excel, je supprime le fichier devenu inutile

Remarques:
* le code ci-dessous a été simplifié; mon code réel est plus complexe mais j'espère que ce code-là est bel et bien fonctionnel et peut servir d'exemple
* cFile est une classe que j'utilise et où j'ai regroupé, sous forme de librairie, plusieurs fonctionnalités de gestion de fichiers; il faudra adapter cette partie

Bonne journée à tous.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

' WebClient, HttpBasicAuthenticator, WebRequest et Response ' sont des classes qu'on trouve ici : https://github.com/VBA-tools/VBA-Web ' ' Note: ' cFile plus bas est une classe que j'ai créé et qui permet de faire plusieurs ' opérations sur des fichiers (créer, supprimer, renommer, ...). Il faudra adapter ' les appels à votre situation     Dim Client As New WebClient Dim Auth As New HttpBasicAuthenticator Dim Request As New WebRequest Dim Response As WebResponse Dim sFileName As String Dim qt As QueryTable   Auth.Setup "Admin", "MonSuperMotDePasseMagique" Set Client.Authenticator = Auth   Client.BaseUrl = "https://...."   Request.Method = WebMethod.HttpGet Request.Format = PlainText Request.Resource = "/api/clients"   Set Response = Client.Execute(Request)     If Response.StatusCode = WebStatusCode.Ok Then   ' cFile.CreateTemp est une fonction qui va générer un fichier texte ' encodé en UTF-8 sFileName = cFile.CreateTemp(Response.Content, "UTF-8")   Set qt = ActiveSheet.QueryTables.Add( _ Connection:="URL;file:///" & Replace(sFileName, "\", "//"), _ Destination:=ActiveSheet.Cells(1, 1) _ )   qt.Refresh BackgroundQuery:=False   ' Suppression du fichier temporaire qui n'est plus nécessaire cFile.Delete(sFileName)   End If

---