ouvrir un lienhypertexte

Tu déclare en haut de ton code :

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 dans une sub ou une fonction tu écris :

ShellExecute hwnd, "open", "http://arobas-fr.com/", "", App.Path, 1


Voila ;)

"caro" a écrit :

Bonjour,

comment faire pour ouvrir un lien hypertexte en
VB.L'utilisation de la commande
DoCmd.RunCommand (acCmdOpenHyperlink = "http://myadresse")
me jette "type incompatible")

Merci d'avance de votre aide.
caro

Je suis desolée mais cela ne fonctionne pas : il ne
reconnais pas hwnd ?? ( qui veut dire quoi ?)
Je suis un peu perdue.
caro

-----Message d'origine-----
Tu déclare en haut de ton code :

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 dans une sub ou une fonction tu écris :

ShellExecute hwnd, "open", "http://arobas-fr.com/", "",

App.Path, 1

Voila ;)

"caro" a écrit :

Bonjour,

comment faire pour ouvrir un lien hypertexte en
VB.L'utilisation de la commande
DoCmd.RunCommand (acCmdOpenHyperlink

= "http://myadresse")

me jette "type incompatible")

Merci d'avance de votre aide.
caro

.

Use this code:
Shell "explorer.exe http://www.microsoft.com"

WinSysBee Support Team
http://www.winsysbee.com



nntp://news.free.fr/microsoft.public.fr.vb/ >

Bonjour,

comment faire pour ouvrir un lien hypertexte en
VB.L'utilisation de la commande
DoCmd.RunCommand (acCmdOpenHyperlink = "http://myadresse")
me jette "type incompatible")

Merci d'avance de votre aide.
caro

Salut ;O)

Le code de Douns comportait une erreur importante !

Voici le code revisité.
Crée un formulaire et place un bouton de commande nommé Command1.
Fais un copier-coller de tout cela :

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

Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "http://arobas-fr.com/", "", App.Path, 1
End Sub

Bonne chance.

Guy


"Douns" <Douns@discussions.microsoft.com> a écrit dans le message de
news:EA334D86-BC67-4C58-9A9E-37222000F010@microsoft.com...

Tu déclare en haut de ton code :

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 dans une sub ou une fonction tu écris :

ShellExecute hwnd, "open", "http://arobas-fr.com/", "", App.Path, 1


Voila ;)

"caro" a écrit :

> Bonjour,
>
> comment faire pour ouvrir un lien hypertexte en
> VB.L'utilisation de la commande
> DoCmd.RunCommand (acCmdOpenHyperlink = "http://myadresse")
> me jette "type incompatible")
>
> Merci d'avance de votre aide.
> caro
>

Salut,

Je suis desolée mais cela ne fonctionne pas : il ne
reconnais pas hwnd ?? ( qui veut dire quoi ?)
Je suis un peu perdue.
caro

Guy a donné la réponse, met Me.hWnd à la place.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

J'aujouterai, car aujourd'hui je suis en forme, que l'interet de
shellexecute, est que cela permet de lancer n'importe quelle appli pourvu
qu'elle soit associée à l'évènement open du fichier voulu dans la base de
registre.

shellexecute d'un .pdf lancera Acrobat reader avec le fichier indiqué,
pour un .doc, idem avec Word,

etc ...


Personnellement, c'est comme ça que ja fais dans mes prog pour afficher
l'aide associée, que celle-ci soit en PDF ou en HTML (suivant mon humeur).