Bonjour,
Voilà 2 jours que je cherche comment faire et je ne trouve pas.
Ce que je souhaite faire c'est me connecter à un site voulu (j'ai quelques soucis dont je vous ferais part) et télécharger le fichier (attendre la pop-up, exécuter "Enregistrer Sous" et choisir le chemin voulu)
Pour le moment voilà ce que j'ai :
Je vous ai expliqué mes questions dans mon code aux lignes : 6, 14 et 27.
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
36
37
38
39
40
41
42
43
44
45
46
47 Call Main Function Main Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_") 'Visibilite de la fenetre d'IE 'Je vois l'affichage de la fenetre alors que je ne devrais pas, je ne comprend pas pourquoi IE.Visible = False 'Accedes a la page de connection IE.Navigate "url connection" 'Attend que la fenetre se charge Wait IE 'Remplie les champs necessaire pour ce connecter With IE.Document .getElementByID("identifiant").value = "id" 'Il arrive d avoir une erreur ici, l erreur est : Objet requis getElementByID .getElementByID("password").value = "mdp" .getElementByID("e_buttonOk").Click End With Wait IE 'Accede a la page du telechargement du fichier IE.Navigate "url pour ddl le fichier voulu" Wait IE WScript.Sleep 1000 'Ici une fenetre apparait pour ouvrir, enregistrer sous ou annuler le ddl, je souhaiterais automatiser le ddl, donc enregistrer sous, et a un endroit precis 'Se deconnecte IE.Navigate "url deconnection" Wait IE 'Ferme la fenetre IE IE.Quit Set IE = Nothing End Function 'Fonction pour attendre que la page internet se charge Sub Wait(IE) Do WScript.Sleep 500 Loop While IE.ReadyState < 4 And IE.Busy End Sub
Pour le téléchargement j'avais trouvé ce code :
Mais d'après l'auteur de celui-ci, quelques fois ça bloque sur la box. Je n'ai pas pu l'exécuter à cause d'une erreur, le DoEvents qui n'est pas reconnu.
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 Set wshShell1 = CreateObject("WScript.Shell") While Not wshShell1.AppActivate("Téléchargement de fichiers") DoEvents bfound = wshShell1.AppActivate("Téléchargement de fichiers") Wend If bfound Then wshShell1.SendKeys "{TAB}" Sleep (1000) If bfound Then wshShell1.SendKeys "%r" Sleep (1000) DoEvents While Not wshShell1.AppActivate("Enregistrer sous") DoEvents bfound = wshShell1.AppActivate("Enregistrer sous") Wend bfound = wshShell1.AppActivate("Enregistrer sous") If bfound Then wshShell1.SendKeys "%N" Sleep (1000) If bfound Then wshShell1.SendKeys "Mon emplacement de fichier sur disque" Sleep (1000) If bfound Then wshShell1.SendKeys "%E" Sleep (1000) wshShell1.SendKeys "%O" Sleep (1000)
Je code depuis peu en VBS donc je n'arrive pas encore à voir les différences des objets entre les VB.
J'espère que j'ai été clair dans mon explication et dans mes demandes.
Merci d'avance.
Partager