[VBS] Internet Explorer
xav3601
Messages postés
3390
Statut
Membre
-
xav3601 Messages postés 3390 Statut Membre -
xav3601 Messages postés 3390 Statut Membre -
Bonjour,
Je travail actuellement sur un script VBS qui permet d'ouvrir une page web jusque là pas de soucis.
Mais cette page web est en fait un lien vers un fichier à tlélécharger, donc ca m'ouvre une deuxieme fenetre pour le telechargement.
Je voudrais pouvoir choisir l'option save dans cette fenêtre et lui donner le chemin ou sauver le fichier.
Voila mon debut de code:
Option Explicit
Dim ie, hwnd, hwnd_fils
Set ie = CreateObject("InternetExplorer.Application")
'Launch IE
ie.Navigate "http://lsilm01.edipresse.net/EnterpriseVault/listvaults.asp?tsv=true&vaultstoreeid=135BD4E7963444449B9A37599D2B1CBA01210000LSILMSite01.edipresse.net&InfoLevel=1&AltServer="
ie.visible = true
Do While Not ie.ReadyState = 4
Loop
Merci par avance de votre aide.
Xav
Je travail actuellement sur un script VBS qui permet d'ouvrir une page web jusque là pas de soucis.
Mais cette page web est en fait un lien vers un fichier à tlélécharger, donc ca m'ouvre une deuxieme fenetre pour le telechargement.
Je voudrais pouvoir choisir l'option save dans cette fenêtre et lui donner le chemin ou sauver le fichier.
Voila mon debut de code:
Option Explicit
Dim ie, hwnd, hwnd_fils
Set ie = CreateObject("InternetExplorer.Application")
'Launch IE
ie.Navigate "http://lsilm01.edipresse.net/EnterpriseVault/listvaults.asp?tsv=true&vaultstoreeid=135BD4E7963444449B9A37599D2B1CBA01210000LSILMSite01.edipresse.net&InfoLevel=1&AltServer="
ie.visible = true
Do While Not ie.ReadyState = 4
Loop
Merci par avance de votre aide.
Xav
A voir également:
- [VBS] Internet Explorer
- Internet explorer - Guide
- Internet explorer 11 - Télécharger - Navigateurs
- Internet explorer 8 - Télécharger - Navigateurs
- Internet explorer 10 - Télécharger - Navigateurs
- Explorer patcher - Télécharger - Personnalisation
