Discussion :

[DGDLB69]

Bonjour,
Désolé de vous déranger, j'ai recherché en vain sur internet pour trouver la solution à mon problème et je débute tout juste sur Selenium.
J'aurai souhaité vous demander si vous saviez comment via VBA/Selenium
- Simuler une saisie au clavier des touches Tabulation et Entrée ?
- Copier le contenu du résultat dans une cellule ?
A toute fin utile, vous pourrez trouver ci-joint mon fichier avec 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
 
Sub Check_Adress_Eligibility_Chrome()
 
    Application.ScreenUpdating = False
 
    Dim employee_adress As String
    employee_adress = "35 avenue d'Enghien / 93800 / Epinay-sur-Seine"
 
 
    Dim driver As New WebDriver
    driver.Start "chrome", "https://sig.ville.gouv.fr/recherche-adresses-qp-polville"
    driver.get "https://sig.ville.gouv.fr/recherche-adresses-qp-polville"
    Application.Wait Now + TimeValue("00:00:02")
 
    driver.findElementByName("addressInput").SendKeys employee_adress
    'XXX cliquer TAB + ENTREE sur le résultat parce que le champs est en fait une liste déroulante
    driver.findElementById("validateSearch").Click
 
    'XXX Copier le contenu du champs Résultat "adresseSearchResult" dans la cellule A1
    Sheets("Emplois_Francs_One_Check").Range("A1").Value = driver.findElementByName("adresseSearchResult").Text
 
 
    Application.ScreenUpdating = True
 
End Sub

En vous remerciant par avance.

Bien à vous.

Rani

[Menhir]

[QUOTE=DGDLB69;11619106]- Simuler une saisie au clavier des touches Tabulation et Entrée ?
Avec la méthode OnKey de Application.
Lire ça : https://docs.microsoft.com/fr-fr/off...lication.onkey

[DGDLB69]

Merci Menhir pour la piste mais en tapant

Code :

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

1
2
3
 
    Application.OnKey "{TAB}"
    Application.OnKey "~"

ou encore

Code :

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

1
2
3
 
    driver.OnKey "{TAB}"
    driver.OnKey "~"

ça ne fonctionne pas malheureusement.

[jurassic pork]

hello,
le "ENTER" ne fonctionne pas dans la liste, il faut cliquer mais alors il ne faut pas qu'il y ait de popup affiché à ce moment-là.
L'adresse à chercher que tu as fournie ne produit aucun résultat chez moi.
Je ne vois pas le champ adresseSearchResult

voilà un code qui fonctionne chez moi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub TestSelenium() 
    Dim employee_adress As String
    employee_adress = "10 RUE DE LA PREVOYANCE 75019 Paris 19e Arrondissement"
 
    Dim driver As New WebDriver
    driver.Start "chrome", "https://sig.ville.gouv.fr/recherche-adresses-qp-polville"
    driver.Get "https://sig.ville.gouv.fr/recherche-adresses-qp-polville"
    Application.Wait Now + TimeValue("00:00:02")
    ' code pour se débarasser du popup de cookies (accepter)
    driver.FindElementByXPath("//button[@id='tarteaucitronPersonalize']").Click
    driver.FindElementByName("addressInput").SendKeys employee_adress
    driver.SendKeys Chr(9)
    driver.FindElementByXPath("//a[contains(@class,'addressAutocomplete')]").Click
    driver.FindElementById("validateSearch").Click

Ami calmant, J.P

[DGDLB69]

Hello Jurassic Pork,
Merci beaucoup ça résout complètement mon premier point de blocage, j'ai ajouté un temps de pause supplémentaire pour que cela passe à tous les coups après avoir renseigné l'adresse.
Le résultat apparaît dans la div class "synthese_carto_popover" avec le message "L’adresse recherchée est située dans le quartier prioritaire"