Bonjour,

Je souhaite automatiser sous excel le résultat d'une requête HTML par la méthode POST :

Ci-joint le code HTML source qui fonctionne :

Code html : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
<html>
<head>
</head>
<body>
<form method="post" action="http://premium-5vch0vnec1h5ui.eu.clickandbuy.com/php3/FFTTlca.php3">
<input type='hidden' name='reqid' value=237>
<input type='hidden' name='precision' value=01>
<input type="submit" value="Soumettre">
</form>
</body>
</html>


et le code VBA proposé mais qui lui ne fonctionne pas (la requête est bien envoyée au serveur, mais la page html retournée envoie un message d'erreur)...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub TestPost()
    Dim xml As MSXML2.XMLHTTP60
    Dim result As String
  ' Const BASE_URL As String = "http://premium-5vch0vnec1h5ui.eu.clickandbuy.com/php3/FFTTlca.php3?reqid%3D237%26precision%3D01"
    Const BASE_URL As String = "http://premium-5vch0vnec1h5ui.eu.clickandbuy.com/php3/FFTTlca.php3?reqid=237&precision=01"
    Set xml = CreateObject("MSXML2.XMLHTTP.6.0")
    xml.Open "POST", BASE_URL, False
    xml.send
    result = xml.responseText
    Range("A1").Value = result
End Sub
(Nécessite d'activer la référence Microsoft xml, v6.0)

Code testé avec les 2 variantes de syntaxes (= et & ou %3D et %26 mais sans succès...)

(Nota, c'est un bout de code pour tester, afin de visualiser simplement le résultat manuellement, il suffit de copier dans le Clipboard le texte de la cellule A1 et de le coller à coté dans la page Excel, et la le résultat de la page "html" devient "décodé lisible")

Merci pour votre aide (je n'ai pas trouvé ou était l'erreur...)