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