Discussion :

[Arsene12]

Bonjour,

je voudrais télécharger un fichier mais j'ai un pop up qui s'affiche (exécuter, enregistrer sous, annuler) et je ne sais pas comment le contrôler. Pourriez-vous m'aider svp?

Code :

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

1
2
3
   oIE.Navigate ("http://download.pdfforge.org/download/pdfcreator/PDFCreator-stable")
   oIE.visible = True 
   wscript.sleep 1000

Quand je tape :

Code VBA :

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

1
2
3
   wscript.SendKeys "{TAB}", True  ' ou oIE.SendKeys "{TAB}", True
   wscript.SendKeys "{TAB}", True
   wscript.SendKeys "{ENTER}", True

ça me répond que cet objet ne gère pas cette propriété ou cette méthode.

[l_autodidacte]

Il y a les avertissements de sécurité auxquels on ne peut rien(à moins de les désactiver, mais c'est fortement déconseillé).
Pour avoir le minimum d'avertissement, on doit se servir de l'adresse complète du fichier à télécharger et là on peut faire le reste sans intervenir :

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
Set WS = CreateObject("WScript.Shell")   
   Set oIE = CreateObject("InternetExplorer.Application")
   oIE.Navigate ("https://silver.download.pdfforge.org/pdfcreator/3.4.1/PDFCreator-3_4_1-Setup.exe")
   oIE.Visible = True 
   Wscript.Sleep 2000
   WS.AppActivate "Téléchargement de fichiers - Avertissement de sécurité" ' Titre de la fenêtre de téléchargement
   Wscript.Sleep 2000
   WS.SendKeys "{TAB}"
   Wscript.Sleep 1000
   WS.SendKeys "{TAB}"
   Wscript.Sleep 1000
   WS.SendKeys "{TAB}"
   Wscript.Sleep 1000
   WS.SendKeys "~"
   Wscript.Sleep 2000
   WS.SendKeys "~"

Il y a aussi la possibilité de faire le téléchargement sans passer par Internet Explorer.

[Arsene12]

J'ai trouvé comment faire pour remettre le focus sur le navigateur.

Code :

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

WS.AppActivate "Internet Explorer"

Ensuite c'est :

Code :

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

1
2
3
   WS.SendKeys "{TAB}"
   WS.SendKeys "{TAB}"
   WS.SendKeys "{ENTER}"

Mon problème c'est que le deuxième bouton contient une flèche sur laquelle je voudrais bien cliquer pour pouvoir enregistrer le fichier que je télécharge sous un autre nom (Enregistrer sous).

Je sais déjà faire le téléchargement automatique, mais je voudrais en plus pouvoir renommer le fichier que je télécharge.

[Arsene12]

je voudrais cliquer pour pouvoir enregistrer le fichier que je télécharge sous un autre nom (Enregistrer sous).

Une fois que le curseur est sur le bouton Enregistrer, il faut appuyer 2 fois sur la flèche ↓ vers le bas et ensuite appuyer sur ENTER. Faut que je trouve la formule pour la flèche du bas :

Code :

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

1
2
3
4
5
   WS.SendKeys "{TAB}"
   WS.SendKeys "{TAB}"
   WS.SendKeys "{↓}"
   WS.SendKeys "{↓}"
   WS.SendKeys "{ENTER}"

[Arsene12]

Faut que je trouve la formule pour la flèche du bas :
WS.SendKeys "{↓}"

La voici :

Code :

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

WS.SendKeys "{DOWN}"

Y'a plus qu'à envoyer le nom du fichier. Je vais chercher la formule à ajouter avant le

Code :

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

WS.SendKeys "{ENTER}"

[l_autodidacte]

Peut-être ce

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
   Set WS = CreateObject("WScript.Shell")   Set oIE = CreateObject("InternetExplorer.Application")
   oIE.Navigate ("https://silver.download.pdfforge.org/pdfcreator/3.4.1/PDFCreator-3_4_1-Setup.exe")
   oIE.Visible = True 
   Wscript.Sleep 2000
   WS.AppActivate "Téléchargement de fichiers - Avertissement de sécurité"
   Wscript.Sleep 2000
   WS.SendKeys "{TAB}"
   Wscript.Sleep 1000
   WS.SendKeys "{TAB}"
   Wscript.Sleep 1000
   WS.SendKeys "{TAB}"
   Wscript.Sleep 1000
   WS.SendKeys "~"
   Wscript.Sleep 1000
   WS.SendKeys "NomFichier.exe"
   Wscript.Sleep 2000
   WS.SendKeys "~"