Bonjour à tous,
J'utilise le code suivant dans vba pour faire les actions suivantes :
1)Ouvrir un site web sécurisé en y mettant mes login/password
2)naviguer sur ce site jusqu'à la page désirée
3)lancer l'ouverture/téléchargement d'un fichier excel de statistiques contenu sur ce site.
Mon problème se situe suite à l'ouverture de ce fichier, car internet explorer m'ouvre une boite de dialogue pour me demander si je souhaite ouvrir ou télécharger ce fichier.
Je souhaite l'ouvrir mais n'arrive pas à trouver un bout de code pour le faire.
Help !
Mon code pour ceux que ça pourrait intéresser :
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 Sub NaviguerPageWeb() Dim IE As InternetExplorer Dim maPageHtml As HTMLDocument Dim Helem As IHTMLElementCollection Set IE = CreateObject("internetExplorer.Application") IE.Visible = True IE.navigate "https://xxx" Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop Set maPageHtml = IE.document Set Helem = maPageHtml.getElementsByTagName("input") For a = 0 To Helem.Length - 1 If Helem(a).getAttribute("name") = "userid" Then Helem(a).innerText = "userid" End If If Helem(a).getAttribute("name") = "password" Then Helem(a).innerText = "password" SendKeys "{ENTER}", True End If Next Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop IE.navigate "https://xxx" Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop IE.navigate "https://xxx.action" ' lance le téléchargement du fichier excel
Partager