Déclencher un téléchargement d'une page web par VBA

Version imprimable

31/12/2010, 10h12
sacotte

Déclencher un téléchargement d'une page web par VBA

Il est possible d'exploiter les pages web par VBA.
Cependant je n'arrive pas à déclencher le téléchargement de fichier txt automatiquement en cliquant sur le bouton télécharger par une macro vba exemple :http://www.abcbourse.com/download/te..._intraday.aspx
Ou je voudrais déclencher le bouton télécharger en bas à gauche

Bonjour,

Essaie ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Click_Telecharger()
 
Dim ie As InternetExplorer
Dim IEdoc As Object
Dim DOCbouton As Object
 
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate ("http://www.abcbourse.com/download/telechargement_intraday.aspx")
 
' attente de fin de chargement de la page
Do Until ie.ReadyState = 4
    DoEvents
Loop
 
Set IEdoc = ie.Document
 
'action sur le bouton Télécharger
Set DOCbouton = IEdoc.getElementsByName("ctl00$BodyABC$ImageButton1").Item '<-- nom du bouton récupéré via le code source de la page
DOCbouton.Click
 
End Sub

05/01/2011, 10h53
fring

J'ai oublié de préciser un petit détail...
Pour que le code ci-dessus fonctionne, il faut activer la référence Microsoft Internet Controls