Discussion :

[nicopof]

Bonjour,

Pour faciliter ma vie au travail, j'ai besoin de récolter des info sur une page internet.
Actuellement, j'y arrive d'une certaine manier, mais j'ai besoin de l'améliorer.
Pour le moment, vba la vba, je me connecte automatiquement sur la page, je fait une copier/coller de la page et je la colle dans une feuille excel, et j'arrive a prendre mes info que j'ai besoin.

Sur la page internet il y a des filtres.
J'ai deux type de filtre, mais la je ne sais pas comment faire en vba pour aller chercher ces information sur un code HTML.

- Premier filtre, (photo pièces joint HTML 1 et 2), un menu déroulant, quand je clic sur inspecter élément (du filtre), j'obtient la photo HTML1 quand quand je clic sur une des élément du menu déroulant, j'obtient la photo HTML2. Comment faire via

Code html :

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

1
2
 VBA pour cliquer automatiquement sur H+18
<input name="ctl00$m$g_31a5f278_281c_49b2_a0c0_f8ec15187b13$ctl00$ddlTo" class="rcbInput" id="ctl00_m_g_31a5f278_281c_49b2_a0c0_f8ec15187b13_ctl00_ddlTo_Input" type="text" readOnly="readonly" value="HC+3h" autocomplete="off"

>


- Deuxièmement, un filtre (photo filtre 1 & 2), il faut rentrer soit même dans la case blanche, l'élément demandé ( pour ce passage j'arrive a le faire), mais après il faut cliquer sur un filtre puis choisir le mot "CONTIENT"
*pièce jointe filtre 1 , la photo du code quand je fiat inspecté élément sur le filtre

<input name="ctl00$m$g_31a5f278_281c_49b2_a0c0_f8ec15187b13$ctl00$rgVols$ctl00$ctl02$ctl02$Filter_Terminal" title="Filtre" class="rgFilter" id="ctl00_m_g_31a5f278_281c_49b2_a0c0_f8ec15187b13_ctl00_rgVols_ctl00_ctl02_ctl02_Filter_Terminal" onclick="$find(&quot;ctl00_m_g_31a5f278_281c_49b2_a0c0_f8ec15187b13_ctl00_rgVols&quot._showFilterMenu(&quot;ctl00_m_g_31a5f278_281c_49b2_a0c0_f8ec15187b13_ctl00_rgVols_ctl00&quot;, &quot;Terminal&quot;, event); return false;__doPostBack('ctl00$m$g_31a5f278_281c_49b2_a0c0_f8ec15187b13$ctl00$rgVols$ctl00$ctl02$ctl02$Filter_Terminal','')" type="button" value=" ">

*pièce jointe filtre 2 , quand je recherche le mot contient dans le code


Voila, je sèhe les filtre et menu déroulant, si une personne a une idée
Merci d'avance

[EricDgn]

Bonjour,

Difficile de répondre sans avoir la page internet.

Une piste pour la 1ère question: "cliquer automatiquement sur H+18", quelque chose du genre:

Code :

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

IE.Document.getElementById("ctl00 ... ... To_DropDown").selectedindex=6

vu que H+18 est le 6e de la liste.

Cdt

[nicopof]

Bonjour,

Merci pour ta réponse,
J'ai essayé mais cela ne fonctionne pas

J'ai joinds le fichier pour y voir plus claire

Merci

[EricDgn]

Bonjour,
Désolé, mais je ne trouve pas de solution et je ne serai que fort peu disponible dans les prochaines semaines.
Cordialement.

[EricDgn]

Bonjour,
Une partie de la solution: ok pour From ... To, pas ok pour "Contient" (qui renvoie sur un onkeypress).

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
Sub RechercheVBAExcel()
   '--- Déclaration des variables
   Dim IE As New InternetExplorer
   Dim IEDoc As HTMLDocument
   Dim InputGoogleZoneTexte As HTMLInputElement
   Dim InputGoogleBouton As HTMLInputElement
   Dim deb As Date, gate As Date
   Dim htmlTagCol As IHTMLElementCollection
   Dim htmlSelectElem As HTMLSelectElement
   Dim Elements As IHTMLElementCollection
   Dim Element As IHTMLElement
 
   '--- Chargement de la page cdm
   IE.navigate " https://www.cdmparis.net/CDG/Pages/Liste-vols-arrivee.aspx"
   WaitIE IE
   '--- Affichage de la fenêtre IE
   Set IEDoc = IE.document
   IE.Visible = True
   '--- ON RENTRE L'ID
   deb = Format(Now, "HH:MM")
   Sheets("Feuil1").Range("A1") = deb
 
   '***************  Connexion  ***************************
   '--- identifiant
   On Error Resume Next    '--- erreur si déjà connecté
   Set InputGoogleZoneTexte = IEDoc.all("ctl00$ContentPlaceHolder1$UsernameTextBox")
   InputGoogleZoneTexte.Value = "identifiant"
   '--- pw
   Set InputGoogleZoneTexte = IEDoc.all("ctl00$ContentPlaceHolder1$PasswordTextBox")
   InputGoogleZoneTexte.Value = "pass"
   '--- clic
   Set InputGoogleBouton = IEDoc.all("ctl00$ContentPlaceHolder1$SubmitButton")
   InputGoogleBouton.Click
   On Error GoTo 0
 
    '******************     From ... To ... ****************************************************
 
   Set InputGoogleZoneTexte = _
      IEDoc.all("ctl00$m$g_31a5f278_281c_49b2_a0c0_f8ec15187b13$ctl00$ddlFrom")
   InputGoogleZoneTexte.Value = "HC-2h"
 
   Set InputGoogleZoneTexte = _
      IEDoc.all("ctl00$m$g_31a5f278_281c_49b2_a0c0_f8ec15187b13$ctl00$ddlTo")
    InputGoogleZoneTexte.Value = "HC+18h"
 
   Set InputGoogleBouton = _
      IEDoc.all("ctl00_m_g_31a5f278_281c_49b2_a0c0_f8ec15187b13_ctl00_btnDisplayPeriod_input")
   InputGoogleBouton.Click
 
   Application.Wait Now + TimeValue("0:00:05")  '--- temporisation pour exécution
 
 
   '******************   Terminal   ***************************************
 
   Set InputGoogleZoneTexte = _
      IEDoc.all("ctl00$m$g_31a5f278_281c_49b2_a0c0_f8ec15187b13$ctl00$rgVols$ctl00$ctl02$ctl02$FilterTextBox_Terminal")
   InputGoogleZoneTexte.Value = "C2F"
 
   '******************     HERE NEED TO CLICK ON  WORD " CONTIENT"
   '--- non résolu
   Set InputGoogleZoneTexte = _
      IEDoc.all("ctl00_m_g_31a5f278_281c_49b2_a0c0_f8ec15187b13_ctl00_rgVols_rfltMenu")
   InputGoogleZoneTexte.Value = "Égal à"
 
End Sub

Bonne continuation.

[nicopof]

Excellent, merci cela m'aide déjà beaucoup,
j’essaie également de sélectionné le "50" par page iso "30", mais j'ai pas encore trouvé, ça ne fonctionne pas comme le from to apparement
Mais je peux commencer a naviguer page / page automatiquement, c nikel

Merci encore pour la première partie