VBA et internet explorer - ouvrir un fichier téléchargé

Signaler
Messages postés
2
Date d'inscription
mercredi 3 novembre 2004
Statut
Membre
Dernière intervention
26 avril 2012
-
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 :


[i]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" >>> télécharge un fichier excel/i