Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Shop Recherche
3835 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Lancement de recherche internet par Excel vba

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Lancement de recherche internet par Excel vba

n°2308675
lucwalraf
Peace and Love
Posté le 11-12-2017 à 13:19:48  profilanswer
 

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


---------------
Luc W.
mood
Publicité
Posté le 11-12-2017 à 13:19:48  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Lancement de recherche internet par Excel vba

 

Sujets relatifs
Moteur de recherche Intranet[VBA Excel] Tirage de personne en aleatoire selon 2 conditions
Comande excelExtraire certaines parties PDF d'un dossier vers Excel
[VBA Excel] Recuperer une couleur mise en forme par conditionBarre de recherche interne au site : me mettre sur la piste
Recherche design patternBesoin d'aide en VBA Excel Concatener + déplacement de donnée
SAP SQL Importer un fichier excelRecherche + Copie de ligne
Plus de sujets relatifs à : Lancement de recherche internet par Excel vba


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR