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  
 

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

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

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

J'essaye ça desuite

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

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+

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