Discussion :

[BRUNO71]

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 :

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

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 :

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

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

[Jean-Philippe André]

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

[BRUNO71]

Bonsoir,

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

Code :

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

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.

[Jean-Philippe André]

la fonction Activate devrait faire l'affaire il me semble

[BRUNO71]

Justement :

Code :

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

1
2
 
IE.Activate

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

????

[pc75]

Bonjour,

Voila un script que j'utilise :

Code :

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

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)
.....