Discussion :

[rubilacxe]

Bonsoir,

Petit problème d'affichage.
Dans mon formulaire j'ai un controle nommé URL qui affiche le champ Hypertexte URL (qui est une adresse Internet) de ma table . Comme c'est un lien HT, lorsque je passe sur le controle j'ai la main qui s'affiche à la place de la fleche, je peux donc activer ce lien. Je l'active en cliquant dessus, la page du site Internet concerné s'affiche bien mais en arrière plan.
Je n'arrive pas à afficher la page Internet en premier plan meme en fermant ou minimisant le formulaire appelant. En effet la page du site est derrière la page d'accueil de ACCESS.

Code :

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

1
2
3
4
Private Sub URL_Click()
    ' DoCmd Minimize
    Application.FollowHyperlink Me.URL, , True
 End Sub

Que je mette True (ouvrir dans une nouvelle fenetre) ou False (ouvrir dans fenetre active) j'ai toujours le meme résultat.

Des idées sur la question ?
Merci d'avance

[cafeine]

Hello,

sur Access 2003, ça me met bien IE au premier plan.

Essaie de lancer via ShellExecute tu auras plus d'options et tu récupéreras le Handle de l'appli pour éventuellement d'autres manips.

[rubilacxe]

Et pourtant j'ai ACCESS 2003 (Version 11.656) avec Windows SP2.
Concernant Shellexecute je trouve nul part la syntaxe de cette commande (sauf Shell) mais quand bien meme, pourrait tu être un peu plus explicite STP en citant un exemple FollowHyperlink avec ses paramètres.

shellexecute(par1, Par2, ??????)

Cette commande me parait adaptée car il semble, d'après ce que tu dis, que l'on puisse maitriser l'exécution de FollowHyperlink et donc d'agir lorsque la fonction est terminée ou en cours de fonctionnement, si j'ai bien compris.
Plus de détails seront les bienvenus

Merci

[cafeine]

Pense à utiliser la FAQ

http://access.developpez.com/faq/?re...r=shellexecute

[rubilacxe]

On y est presque
Si je lance ShellExecute par un clic bouton, ça marche

Code :

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

1
2
3
Private Sub Bouton_Click()
     ShellExecute Me.hwnd, "open", "http://www.developpez.com", "", CurrentProject.Path, 1
End Sub

Par contre si je lance en cliquant sur le champ URL du formulaire, ça flashe et ça ne marche pas.

Code :

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

1
2
3
Private Sub URL_Click()
     ShellExecute Me.hwnd, "open", "http://www.Developpez.com", "", CurrentProject.Path, 1
End Sub

Attention, quand je dis, ça ne marche pas, ça marche mais en arrière plan c'est-à-dire invisible.

[NLozo]

Bonjour ! Tu disais :

Si je lance ShellExecute par un clic bouton, ça marche

Est-ce que ça marche à tout coup ?

Par contre si je lance en cliquant sur le champ URL du formulaire, ça flashe et ça ne marche pas.

J'ai le même problème que toi. Mon appel se fait à partir d'un champ URL. Ma fenêtre s'ouvre en arrière-plan. Au préalable, dans un module, j'y avais mis :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public 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
 
Public Const SW_HIDE = 0                  ' Versteckt öffnen
Public Const SW_MAXIMIZE = 3              ' Maximiert öffnen
Public Const SW_MINIMIZE = 6              ' Minimiert öffnen
Public Const SW_NORMAL = 1
Public Const SW_RESTORE = 9
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNOACTIVATE = 4

Pour ensuite mettre sur le clic du champ :

Code :

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

1
2
3
4
5
Private Sub txtWeb_Click()
 
ShellExecute Me.hWnd, "open", Me.txtWeb, vbNullString, vbNullString, SW_SHOWMAXIMIZED
 
End Sub

J'ai bien cru que ça y était, mais voilà, ça fonctionne par intermittence. J'ai fait plusieurs essais pour essayer de voir une raison (ex. fenêtre minimisée à la dernière ouverture, autre fenêtre déjà ouverte, mais non maximisée...).

Est-ce que le fait que mon formulaire soit modal peut avoir quelque chose à voir là-dedans (encore là, pourquoi ça fonctionne parfois) ? J'ai Access 2002 SP3, et Windows XP SP1.