Discussion :

[Julian_hdp]

Bonjour, et merci pour cette file bien intéressante.

ici : http://www.developpez.net/forums/d14...t/#post8477914


Pour ma part, j'ai des soucis avec l'utilisations des tabs...
J'essaye d'ouvrir un fichier généré par la site abcbourse, mais en vain... Le fichier ne s'ouvre pas malgré la disparition du bandeau demandant d'ouvrir le fichier.

Je vous mets ci-dessous mon code:

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Sub PremierIE()
 
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputDateDeb As HTMLInputElement
Dim InputDateFin As HTMLInputElement
Dim CaseDirect As HTMLInputElement
Dim htmlSelectElem As HTMLSelectElement
Dim InputBouton As HTMLInputElement
 
    'Chargement de la page Web
    IE.navigate "www.abcbourse.com/download/historiques.aspx"
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
    'On attend le chargement complet de la page
    WaitIE IE
 
    'On pointe le membre Document
    Set IEDoc = IE.document
 
    'Renseigner la date de début
    'On pointe notre Zone de texte
    Set InputDateDeb = IEDoc.all("ctl00$BodyABC$strDateDeb")
    'On définit le texte que l'on souhaite placer à l'intérieur
    InputDateDeb.Value = "01/12/2015"
 
    'Renseigner la date de fin
    'On pointe notre Zone de texte
    Set InputDateFin = IEDoc.all("ctl00$BodyABC$strDateFin")
    'On définit le texte que l'on souhaite placer à l'intérieur
    InputDateFin.Value = "01/12/2015"
 
    'Cocher toutes les actions France
    'On pointe la case à cocher
    Set CaseDirect = IEDoc.all("ctl00$BodyABC$eurolist")
    'On simule un clic sur la case à cocher
    CaseDirect.Click
 
    'Sélection du format Excel
    'On va sur l'objet qui contient la liste des indices
    Set htmlSelectElem = IEDoc.all("ctl00$BodyABC$dlFormat")
    'On sélectionne le format via sa valeur unique
    htmlSelectElem.Value = "x"
 
    'Clic sur le bouton télécharger
    'On pointe notre bouton
    Set InputBouton = IEDoc.all("ctl00$BodyABC$Button1")
    'On simule un clic
    InputBouton.Focus
    InputBouton.Click
 
 
    CreateObject("WScript.Shell").SendKeys "{Tab 10}~"
    Application.Wait Now + 0.00001
 
 
 
    'On libère les variables
    Set IE = Nothing
    Set IEDoc = Nothing
 
 
End Sub
 
 
 
 
Sub WaitIE(IE As InternetExplorer)
 
   'On boucle tant que la page n'est pas totalement chargée
   Do Until IE.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop
 
End Sub

Voyez vous où cela pêche?

Merci de votre aide.


Julien

[Julian_hdp]

Bon désolé...

Je cherche depuis hier soir, et il suffit que je poste sur le forum pour trouver la solution tout seul....


J'avais simplement oublier de mettre un temps d'attente après l'activation de mon bouton "télécharger"...

Bon courage à tous.