Navigation et téléchargement page web depuis VBA
Bonjour à tous,
Je vous sollicite suite à un point bloquant, je suis débutant,
Je cherche à télécharger un fichier web depuis une macro VBA,
Le travail se déroule en deux étapes, tout d'abord simuler un clic sur le bouton "télécharger" qui permet de générer le fichier, puis dans un second le
télécharger en cliquant sur l'icone "image dowload"
La 1er étape est réussi et fonctionel, car le l'activition est de type "button", donc la fonction getElementBytagname fonctionne,
Sub test()
Dim IE As Object
Dim IEdoc As Object
Dim DOCelement As Object
Dim Doctelecharge As Object
'Initialisation des variables
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate """"""lien internet"""""
IE.Visible = True
Set IEdoc = IE.document
Set DOCelement = IEdoc.getElementsByTagName("button")(0) 'Forms(0)
DOCelement.Click
End Sub
Pour la seconde étape, c'est juste une image avec un url, lien attaché ?
<img src ="img/icons/report/succeed.png"/>
quand la souris est dessous, il y a bien un lien qui s'affiche (cf photo en bas à gauche) qui permet de dl le fichier
Il y a t'il une solution pour simuler le clic sur cet icône /lien ?
Merci d'avance :) et bon dimanche !
Bonjour,
Voici un essai sans conviction :
Sub test()
Dim IE As Object
Dim IEdoc As Object
Dim DOCelement As Object
Dim Doctelecharge As Object
'Initialisation des variables
lien = ???
Set IE = CreateObject("InternetExplorer.Application")
with IE
.Navigate lien
.Visible = True
with .Document
Set DOCelement = .getElementsByTagName("button")(0) 'Forms(0)
DOCelement.Click
DOCelement.fireevent "onclick"
end with
end with
End SubCdlt,