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.