vba ACCESS et Internet Explorer

Bonsoir,

Voulant démarrer une appli en html via internet Explorer depuis ACCESS, j'ai modifié ce code récupéré sur la faq access.

Je déclare ceci :

Code:

---

1 2 3 4 5

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long

---

Et puis j'ouvre internet explorer avec un lien dans une nouvelle page avec cette ligne:

Code:

---

1 2 3 4

ShellExecute Me.hwnd, "open", "C:\Program Files\Internet Explorer\IEXPLORE.EXE", _ "http://www.developpez.net/", _ CurrentProject.Path, 1

---

Celà fonctionne très bien, maintenant voilà ma question;
Est-il possible de commander depuis ce code un bouton quelconque situé sur le fichier html ?

Si oui, ou puis-je placer ce code ?

Exemple : Bouton1.Value = True ou False

Bien cordialement

salut,

des exemples ont été donnés de ci de là sur le forum,
http://www.developpez.net/forums/d66...xplorer-macro/

http://www.developpez.net/forums/d61...aire-page-web/

http://www.developpez.net/forums/d60...feuille-excel/

tu devrais y trouver ton bonheur ;)

Bonsoir,

Merci beaucoup pour ces informations...
Excellent, par contre je viens d'essayer ce bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'référence à Microsoft Internet Controls Dim IE As InternetExplorer Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.navigate "www.google.fr" Call tempo(IE) End Sub   Sub tempo(IE) Do Until IE.readyState = 4 'READYSTATE_COMPLETE DoEvents Loop 'attendre la fin du chargement

---

Et je me rend compte que la page reste dans la barre des tâches en attendant le click de la souris..
Comment faire pour que la page d'internet soit visible en première ligne ?

Merci beaucoup.

la fonction Activate devrait faire l'affaire il me semble :koi:

:oops:
Justement :

Code:

---

1 2	IE.Activate

---

Ca ne fonctionne pas...D'ailleurs quelques soit le sens...

????

Bonjour,

Voila un script que j'utilise :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Set IE = WScript.CreateObject("InternetExplorer.Application")   With IE .left=200 .top=200 .height=300 .width=500 .menubar=0 .toolbar=0 .statusBar=0 .navigate "About:Blank" .visible=1 End With   ' Attendre la fin du chargement de IE Do while IE.busy loop   On Error Resume Next Do Loop While (IE.document.script.CheckVal()=0) .....

---

Bonsoir,
Merci beaucoup