Discussion :

[BRUNO71]

Bonjour,

Pour terminer mon projet j’ai encore quelques questions, bien que je n’ai toujours pas réussi ma dernière question et d’ailleurs j’en profite pour dire merci à Phil Rob (j’en suis toujours à la même réflexion car je dois conserver Outlook, tant pis pour le message d’alerte « accepter / refuser ») je n’ai pas trouvé la solution…..

Voilà ma question :

En son temps j’avais réussi avec l’aide de collaborateur de développez.com, un code pour ouvrir depuis Access, une page web et insérer des éléments dans celle-ci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As HTMLElementCollection
Set IE = CreateObject("internetExplorer.Application")
    IE.Visible = True
IE.navigate ("http://pageweb.fr/")
Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
        Loop
     IE.Document.all("j_username").Value = "toto"
     IE.Document.all("j_password").Value =  "pass"
     'IE.Document.all("login").Click
     SendKeys "{Enter}"

Maintenant je souhaiterais la même chose, mais sans choisir de navigateur particulier et sans utiliser WebBrowser.
Je m’entraîne sur la page de google, après ouverture de celle-ci on click automatiquement sur le bouton (j’ai de la chance)….

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
Process.Start("https://www.google.fr/?gws_rd=ssl")
 
‘Document.GetElementById("btnI").InvokeMember("submit")

Mais là ! bug total…

J’ai pensé à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Process.Start(https://www.google.fr/?gws_rd=ssl, Document.GetElementById("btnI").InvokeMember("submit"))

Mais non…
Avez-vous une petite idée ou la solution…Merci.

[Miska59]

Bonjour,

Pour presser les boutons Google avec webbrowser, il faudra ajouter dans InvokeMember le nom Click.
exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.google.fr")
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("btnK").InvokeMember("click") 'Button Recherche Google
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Document.GetElementById("btnI").InvokeMember("click") 'Button j'ai de la chance
    End Sub

Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.