Discussion :

[mrcross]

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

[Jean-Philippe André]

salut,
à toutes fins utiles, l'excellent tuto de Qwazerty sur IE et VBA
http://qwazerty.developpez.com/tutor...-et-vba-excel/

[patricktoulon]

bonjour

le code est relativement correcte mis a part une chose

si tu utilise la simulation sendkey tu dois prendre le focus de l'élément input d'abord

cela dis il y a une meilleur solution

c'est repérer l'élément bouton certainement de type "submit" et runner sa propre fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nomdu bouton .click

tu a certainement ça dans le tuto de qwazerty


au plaisir

[mrcross]

Bonjour et merci pour vos premiers commentaires.

J'avais déjà parcouru le magnifique tuto de QWAZERTY qui est une grande bible d'informations mais qui hélas ne m'a pas aidé pour mon problème actuel.

Clicker sur un bouton/objet dans la page ie ne me pose pas trop de soucis, c'est au niveau de la boite de dialogue d'IE que je coince.

Lors du téléchargement du fichier IE me propose en effet d'ouvrir ou enregistrer le fichier (en bandeau en bas de page) et je n'arrive pas à lui dire d'ouvrir ce fichier csv.

Ce bandeau n'étant pas dans le code source de la page (c'est un paramètre de sécurité d'IE) je ne trouve pas le nom du bouton pour le pointer.

[patricktoulon]

bonjour c'est vrai je n'avais pas penser au bandeau d'en bas
je ne sais pas si comme pour excel il existe pas un

application .displayalerts=false

il faudrait voir si par macro on pourrait pas désactiver ce truc
telecharger
et réactiver

intéressant je vais faire une recherche

au plaisir

[patricktoulon]

oupss

je viens d'y penser !!!

il y a peut etre une meprise dans la methode mais je n'en suis pas sur!!!!

est tu obligé de cliqué?

si le lien est present sur la page

en passant par le href et non pas le innertext n'a tu pas la possibilité de le telecharger?

je cherche je cherche

au plaisir