Lien vers un site internet

Question

Bonjour,

Je cherche a faire un lien vers un site internet...
Alors j'ai regardé un peu mais les avis sont partagés sur les codes que j'ai trouvé. Alors ce que j'ai fait ca marche mais si j'ai déjà une page internet lancer, ça me lance le site dans cette fenetre et ça m'en n'ouvre pas une autre.
De plus je ne sais pas si ce code marche pour tous les navigateur internet ou juste pour internet explorer.
J'ai appliqué un code que j'ai trouvé mais j'avoue que je ne sais pas trop comment ça marche...
Voilà le code que j'ai fait...

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
Private Sub CommandButton9_Click()
Dim cod
On Error Resume Next
WebPage = "www.trs.casimir.org"
cod = ShellExecute(actualfrmHWND, vbNullString, WebPage, "", vbNullString, 1)
End sub

La function ShellExecute trouve le programme que l'on veux n'importe où qu'il soit et n'importe quoi que ce soit comme programme?
Et actualfrmHWND ça correspond à quoi? 
Si vous pouvez m'eclaircir un peu...
Je vous remercie par avance...

Renfield · Answer

ShellExecute utilisera la navigateur par defaut, c'est donc LA solution à adopter
le handle, tu t'en fiches un peu...

dans l'absolu, il faudrait plutot :

Private Sub CommandButton9_Click()
    ShellExecute(0, "open", "www.trs.casimir.org"
, vbNullString, vbNullString, 1)
End sub

mortalino · Answer

salut,

actualfrmHWND doit-être Me.hWnd
En gros tu donnes le handle de ta Form en paramètre.
ShellExecute te lancera le fichier avec l'appplication associée à l'extension.

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

Tiatia63 · Answer

Merci.
J'ai fait comme tu dit Renfield mais est ce que ca serait possible que ça ouvre le site dans une nouvelle fenetre?

Renfield · Answer

dans une nouvelle fenêtre, là, tu pars vers des dépendances propres aux navigateurs...(me semble)

lolokun · Answer

Hello,

Il me semble avoir vu sur ce site qu'il fallait mettre 0& au niveau du handle pour ouvrir dans une nouvelle fenêtre...

lolokun · Answer

Je viens de tester et effectivement, cela lance un nouvel onglet du omins pour internet explorer..Je n'ai pas d'autre navigateur au boulot pour pouvoir tester..

lolokun · Answer

Ha pardon je me suis planté ça a le même comportement avec le 0& je n'avais pas encore utilisé le shellexecute avec un site internet..Par contre en cherchant un peu j'ai trouvé ce lien : 

http://www.vbfrance.com/article.aspx?Val=4634

Tiatia63 · Answer

C'est à dire qu'il faudrai que je mette: ShellExecute(0&, "open", "www.trs.casimir.org", vbNullString, vbNullString, 1)?
Parce que ça ça ne marche pas.

Sinon une question....
Moi je me sert de la fonction ShellExecute pour lancer des pdf et aussi pour lancer un site internet (dans le meme programme)...
Pourquoi avec le pdf je peux mettre dans mon code directement "shellexecute....." et avec le site internet il faut que je mette "cod = shellexecute" c'est à dire qu'il faut un "="?
J'ai peut etre fait une erreur qq part...

Merci!

PCPT · Answer

salut,
pas obligé, soit tu executes en appelant, soit en plus tu récupères le résultat

call msgbox("machin")
msgbox "machin"
ret=msgbox("machin")

sauf exceptions rares, les api sont juste des fonctions
++

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_jp0304 · Answer

simplement merci pour toutes vos explications qui m'ont permis de terminer mon prog !
JP

Lien vers un site internet

10 réponses

Votre réponse

Discussions similaires