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