Remplir un formulaire HTML à partir d'une macro?
Bonjour à tous,
Contexte:
Tout les soirs je télécharge des fichiers que j'intègre ensuite dans un classeur.
A titre d'exemple voici un des codes HTML que j'éxécute:
URL GOTO=http://www.abcbourse.com/download/historiques.aspx
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:aspnetForm ATTR=ID:ctl00_BodyABC_strDateDeb CONTENT=18/03/2013
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:aspnetForm ATTR=ID:ctl00_BodyABC_strDateFin CONTENT=22/03/2013
TAG POS=1 TYPE=INPUT:CHECKBOX FORM=NAME:aspnetForm ATTR=ID:ctl00_BodyABC_xsbf120p CONTENT=YES
TAG POS=1 TYPE=SELECT FORM=NAME:aspnetForm ATTR=ID:ctl00_BodyABC_dlFormat CONTENT=%x
TAG POS=1 TYPE=SELECT FORM=NAME:aspnetForm ATTR=ID:ctl00_BodyABC_listFormat CONTENT=%isin
TAG POS=1 TYPE=INPUT:SUBMIT FORM=ID:aspnetForm ATTR=ID:ctl00_BodyABC_Button1
ONDOWNLOAD FOLDER=* FILE=+_{{!NOW:yyyymmdd_hhnnss}} WAIT=YES
SAVEAS TYPE=CPL FOLDER=* FILE=+_{{!NOW:yyyymmdd_hhnnss}}
Problème:
Je souhaite automatiser le téléchargement du fichier et si possible, redéfinir le nom du fichier ainsi que son emplacement pour l'enregistrement.
Question:
Veuillez trouver ci-dessous mon début de macro. Je bute sur la formulation de l'attribution d'un nom de fichier et sur l'enregistrement du fichier.
Sub ABC_bourse01()
Dim IE As New InternetExplorer
IE.Visible = True
IE.navigate ("http://www.abcbourse.com/download/historiques.aspx")
Do Until IE.readyState = 4
DoEvents
Loop
IE.document.getElementById("ctl00_BodyABC_strDateDeb").innerText = "01/01/2013"
IE.document.getElementById("ctl00_BodyABC_strDateFin").innerText = "31/01/2013"
IE.document.getElementById("ctl00_BodyABC_xsbf120p").Click
IE.document.getElementById("ctl00_BodyABC_dlFormat").Value = "x"
IE.document.getElementById("ctl00_BodyABC_listFormat").Value = "isin"
IE.document.getElementById("ctl00_BodyABC_Button1").Click
End Sub
D'avance merci pour vos contributions.
Salut le Forum
Inutile de poster en double, il suffit de continuer la discussion sur ta première ficelle.
Lien : https://forum.excel-pratique.com/excel/recuperer-un-fichier-sur-un-site-internet-t38078.html
Mytå
Salut Mytå,
Des commentaires utiles qui pourrait me faire avancer?
Bonne journée
Re le Forum
Tu peux utiliser
IE.document.getElementById("ctl00_BodyABC_dlFormat").selectedIndex = 11Mytå
Bonjour Mytå,
Merci pour ton conseil. Aurais-tu une idée pour automatiser l'enregistrement du fichier depuis le site internet?
Cordialement