focus iexplore

Question

Bonjour, J'utile un script permettant de faire des actions sur Internet Explorer comme sur un Webbrowser voici mon script : Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate "http://www.google.fr" Do While IE.ReadyState <> 4 DoEvents Loop IE.Document.All("q").Value = "test recherche" IE.Document.All("btnG").Click Do While IE.ReadyState <> 4 DoEvents Loop 'Text1.SetFocus IE.Document.All("q").Value = text1.text IE.Document.All("btnG").Click Do While IE.ReadyState <> 4 DoEvents Loop IE.Quit Set IE = Nothing Pour faire simple : le script lance Google.fr et fais une recherche sur "test" en utilisant Google.fr quand la page de résultats est complétement terminé alors l'application donne le focus à text1 pour que l'utilisateur tape une autre recherche et ce que j'aimerais c'est que ça fonctionne :) car à partir de moment que la page "test" à été affiché impossible de renvoyer des données par dessus :s Quelqu'un peut m'aider ? Merci d'avance 123

BLUEBIBUBBLE · Answer

Réorganize un peu ton code, un truc du genre: Private Sub Form_Load() GoogleSearh "test recherche" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then ' Intercepte touche (ASCII 13) KeyAscii = 0 ' Supprime la touche du buffer GoogleSearh Text1.Text ' Lance la recherche Text1.SetFocus ' Reviens là ! End If End Sub Private Sub GoogleSearh(Search As String) Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate "http://www.google.fr" Do While IE.ReadyState <> 4 DoEvents Loop IE.Document.All("q").Value = Search IE.Document.All("btnG").Click Do While IE.ReadyState <> 4 DoEvents Loop IE.Quit Set IE = Nothing Text1.SetFocus End Sub

maxsecurite2 · Answer

Merci cependant ce n'est pas le but de recharger une nouvelle page il faut vraiment comme je l'ai expliqué au début cad quand la fenetre google est chargée : afficher le formulaire en donnant le focus à la zone de texte et la zone de texte ne dois pas recharger une fenêtre MAIS modifier la valeur "q" de la zone de texte du site Internet en l'occurence Google

En tout cas merci d'avoir pris du temps pour moi ;)

123

BLUEBIBUBBLE · Answer

hmm...,
et ça ?:

Private IE As Object



Private Sub GoogleSearh(Search As String)
    IE.Navigate "http://www.google.fr/search?hl=fr&q=" & Search & "&btnG=Recherche+Google&meta="
    Do While IE.ReadyState <> 4: DoEvents: Loop
End Sub



Private Sub Form_Load()
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    GoogleSearh "test recherche"
End Sub



Private Sub Form_Unload(Cancel As Integer)
    IE.Quit
    Set IE = Nothing
End Sub



Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        GoogleSearh Text1.Text
        Text1.SetFocus
    End If
End Sub

maxsecurite2 · Answer

C'est bien mais encore une fois ça n'agi pas sur le formulaire de la page mais sur l'adresse le but étant de pouvoir modifier une donnée formulaire et surtout de pouvoir le faire sur d'autre site que Google :)

merci encore 

123

Focus iexplore

4 réponses

Votre réponse

Discussions similaires