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