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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA / sendkeys / ie / find] sendkeys VBA pour internet explorer

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA / sendkeys / ie / find] sendkeys VBA pour internet explorer

n°1675560
choukito
Pas de citation...
Posté le 23-01-2008 à 11:56:57  profilanswer
 

Bonjour,
 
Je cherche à utiliser du VBA pour trouver un mot dans un page web. Prenons yahoo.
 
Je l'ouvre OK
Je veux ouvrir le find avec sendkeys OK
Je veux écrire dans le champ PAS OK
 
Voilà mon code
 
Sub yahoo()
Dim ie
Dim i As Long
i = 1
 
Set ie = CreateObject("InternetExplorer.application" )
 
ie.navigate "http://www.yahoo.fr"
 
ie.Visible = True
 
Do While ie.busy
Loop

 
Dim t0 As Single
     'temps de référence
     t0 = Timer
     'boucle d'attente
     Do While Timer - t0 < 5
          ' Dim dummy As Integer
          ' dummy = DoEvents()
           'si on dépasse minuit,il faut
           'retrancher un jour
           If Timer < t0 Then
               t0 = t0 - 24 * 60 * 60
           End If
     Loop
 

SendKeys "^f"

 
 
 
     'temps de référence
     t0 = Timer
     'boucle d'attente
     Do While Timer - t0 < 5
          ' Dim dummy As Integer
          ' dummy = DoEvents()
           'si on dépasse minuit,il faut
           'retrancher un jour
           If Timer < t0 Then
               t0 = t0 - 24 * 60 * 60
           End If
     Loop
 
 
SendKeys "cool"
 
 
 
 
SendKeys "{ENTER}"
 
 
End Sub

 
 
 
En rouge, ma macro. J'ai ajouté de la temporisation pour voir si ca enlevait le PB --> non malheureusement
 
Voilà, je cherche à trouver le mot cool dans la page yahoo : le problème c'est que la macro ecrit cool dans le champ google, pas dans la fenetre find
 
J'ai essayé ^fcool, ca ne marche pas    :(
 
 
 
 
Merci de m'aider   ;)
 

mood
Publicité
Posté le 23-01-2008 à 11:56:57  profilanswer
 

n°1675562
djobidjoba
Posté le 23-01-2008 à 12:02:14  profilanswer
 

si tu fais une pause après le 1er loop, où se trouve le curseur sur IE ?
edit : je viens de tester et j'ai rien dis


Message édité par djobidjoba le 23-01-2008 à 12:09:34
n°1675567
djobidjoba
Posté le 23-01-2008 à 12:11:11  profilanswer
 

en rajoutant un  
Do While ie.busy
Loop
 après le send key ^f ca marche

n°1675568
choukito
Pas de citation...
Posté le 23-01-2008 à 12:11:20  profilanswer
 

J'ai essayé sans les pauses, rien ne change. Je crois que le curseur se trouve dans le champs de requete yahoo

n°1675569
choukito
Pas de citation...
Posté le 23-01-2008 à 12:12:14  profilanswer
 

J'essaye ça desuite :)

n°1675574
choukito
Pas de citation...
Posté le 23-01-2008 à 12:18:07  profilanswer
 

Ca ne marche pas :(
 
J'ai toujours le "cool" écrit dans le "champs yahoo"
 
Peux tu m'envoyer ton code STP ?
 

n°1675690
choukito
Pas de citation...
Posté le 23-01-2008 à 15:13:13  profilanswer
 

Quelqu'un d'autre aurait-il une idée ? 8-)
 
J'ai essayé ce que m'a dit djobidjoba mais ça ne marche pas
 
a+

n°1676137
choukito
Pas de citation...
Posté le 24-01-2008 à 12:16:48  profilanswer
 

Je me permets de relancer mon sujet. Quelqu'un a une idée?
 
MErci :p


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

  [VBA / sendkeys / ie / find] sendkeys VBA pour internet explorer

 

Sujets relatifs
Access VBA appeler une public Sub?Aide sur site internet, quelques problemes
probléme de comptabilité sous internet explorer 7Inversion de matrice sous VBA
[Résolu] PB pour enregistrer des données dans la BSD ACCESS avec VBAVBA - Savoir si une fenêtre est visible
Ouvrir une page internet à une heure précise via Windows (CRON)Tuer explorer.exe et le relancer
Petit programme simple pour débutant VBA 
Plus de sujets relatifs à : [VBA / sendkeys / ie / find] sendkeys VBA pour internet explorer


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