Envoi requête HTTP méthode GET via VBA

Bonjour à tous,

On me demande d'envoyer sur une URL (Web Services méthode GET) le résultat d'un comptage mais je n'ai absolument aucune idée de ce dont il s'agit.

Je sais récupérer la valeur de mon comptage en VBA mais je n'ai aucune idée de comment l'envoyer dans une URL, auriez-vous une piste pour que je puisse me lancer ?

Merci pour votre aide et désolé si le sujet a déjà été traité mais je ne maîtrise pas du tout ce sujet et ne sais donc même pas où chercher.

Bonne fin de journée à tous,

Farid ;)

Bonjour,

La méthode Get, cela veut dire que vous souhaitez récupérer un résultat sous la forme d'un fichier par exemple.

Il faudrait regarder dans ce tuto la fonction DownloadHTTP(url,destination):

https://arkham46.developpez.com/arti...ice/officeweb/

Et cette discussion par exemple :

inserer-qrcode

L'idée c'est de passer le résultat de comptage dans l'url 1er argument de la fonction DownloadHTTP, pour récupérer le résultat sous forme de fichier.
(Destination serait le chemin du fichier à récupérer)

Cdlt,

Bonjour,

Merci pour cette réponse.

Je n'ai pas compris qu'il fallait que je récupère quoi que ce soit.

Il s'agit juste d'envoyer 2 paramètres sur une URL :
Param1 = Nom du Serveur
Param2 = Résultat du comptage.

Merci pour votre aide, je vais parcourir les liens.

Farid

Citation:

---

Envoyé par Faridpo

Bonjour,

Merci pour cette réponse.

Je n'ai pas compris qu'il fallait que je récupère quoi que ce soit.

Il s'agit juste d'envoyer 2 paramètres sur une URL :
Param1 = Nom du Serveur
Param2 = Résultat du comptage.

Merci pour votre aide, je vais parcourir les liens.

Farid

---

Dans ce cas pouvez-vous nous donner le but de la requête ?

Citation:

---

Envoyé par User

Dans ce cas pouvez-vous nous donner le but de la requête ?

---

Je suis parvenu à mes fins donc je vous mets le code qui sera plus explicite qu'une simple explication :

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

Function WS()   Dim wq As WinHttp.WinHttpRequest Dim strURL, strResp, Param1, Param2 As String   strURL = "http://www.monurl.fr/dossier/phpinfo.php/" Param1 = "NomDuServeur" Param2 = "27" strURL = strURL & Param1 & "/" & Param2   On Error GoTo ERRH Set wq = New WinHttpRequest ' Création requêtte HTTP de type GET wq.Open "GET", strURL ' Envoie de la requête wq.Send   If wq.Status = 200 Then ' Récupérer le corps de la réponse strResp = wq.ResponseText ' exploitation de la réponse MsgBox wq.ResponseText   MsgBox wq.Status & " " & wq.statusText, , "Statut renvoyé par serveur"   GoTo ENDPROC   ERRH: 'MsgBox ERR.Description MsgBox "Erreur No." & Err.Number & " : " & Err.Description   ENDPROC:   Set wq = Nothing   End If   End Function

---

Un grand merci pour votre temps et bonne soirée à tous,

Farid ;)

PS : vous aviez raison, je récupère bien le statut renvoyé par le serveur. Ceci dit, après la phase de test, je supprimerai cette partie car le but est juste d'envoyer les informations qui évoluent tout au long de la journée sans attendre de réponse particulière si ce n'est "bien reçu".

Bonsoir,

Tant mieux, juste une remarque, il faudrait peut-être sortir la partie gestion d'erreur de l'instruction if...end if.

Aussi pour libérer la variable wq dans le cas ou la condition du if n'est pas respectée.

Cdlt,

Bonsoir,

Merci pour cette ces remarques et le suivi.

Je m'y replonge lundi.

Bon week-end,

Farid