Discussion :

[Faridpo]

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

[User]

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,

[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

[User]

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 ?

[Faridpo]

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 :

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
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".

[User]

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,