Lancement de recherche sur un site web par Excel VBA

Bonjour,

Je cherche à lancer une recherche sur un site web par une macro vba. Cela se fait très bien sur le site google par exemple : on renseigne le champ et on lance la recherche automatiquement en utilisant l'objet form de la page et la fonction submit.

Mais je tombe sur des cas où il n'y a pas d'objet form sur la page et je ne vois pas de manière de lancer la recherche par un submit. J'essaye donc de le faire en simulant une validation par la touche ENTREE au clavier grâce à la fonction Sendkeys. J'ai fait de nombreux essais - sans succès. Voir le code ci-dessous.

Merci d'avance si quelqu'un a une idée !

Luc W.

Un exemple de site où je n'arrive pas à lancer la recherche après avoir renseigné le champ.

Sub RechScipio()

' Déclare les variables du module

Dim oNav As SHDocVw.InternetExplorer

Dim oDoc As MSHTML.HTMLDocument

Dim ChampInput As HTMLInputElement

URLcible = "https://www.myfrenchstartup.com/fr/recherche-avancee"

Set oNav = New SHDocVw.InternetExplorer

oNav.navigate URLcible

oNav.Visible = True

' Attend le chargement de la page

Do Until oNav.readyState = READYSTATE_COMPLETE

DoEvents

Loop

Set oDoc = oNav.document

' Renseigne le champ recherche

Set ChampInput = oDoc.all("startup_name")

ChampInput.Value = "Scipio Bioscience"

''Tentatives infructueuses pour lancer la recherche

''ChampInput.SendKeys("~")

''ChampInput.SendKeys("~").send

''ChampInput.Value = "Alantaya" & ChampInput.SendKeys("~").send

End Sub

Bonjour Luc,

Il semble que ce site demande un login/Mot de passe pour lancer une recherche :

Dans ce forum, h2so4 a donné une réponse pour réaliser une connexion dans le message :

"Connexion sur site avec mot de passe automitiquement"

Rechercher des sujets similaires à "lancement recherche site web vba"