lien vers un site à partir d'controle VBA

Question

Bonjour à tous, 
Comment dois-je faire pour lancer mon explorateur et aller directement sur la page "WWW.TOTO.com " par exemple, à partir d'un controle CommandButton sur une userform Excel

Quelqu'un (ou quelqu'une) peut il m'aider

Merci d'avance

cs_Exploreur · Answer

Salut,

Regarde à cette page défois que tu trouves ton bonheur, il y des chances.

A+
Exploreur

cs_Exploreur · Answer

Ou alors est la je ne sais pas si cette commande est valable en VBA, mais je fais cela en VB6 :


Private Sub Command_click()
'Gestion erreur
 On Error GoTo err
'Lancement de la page Web correspondant à la source
 Shell "rundll32.exe url.dll,FileProtocolHandler " & "http://www.codes-sources.com/code.aspx?ID=40546"
 GoTo sort
 
err:
MessageBox Me.hwnd, err.Description, "Information utilisateur", vbOKOnly Or vbExclamation


sort:
End Sub

 A+
Exploreur

cs_MPi · Answer

Exploreur, je n'ai pas regardé les liens que tu as fournis, mais j'irais avec l'API ShellExecute dont tu trouveras plein de sources ou de bouts de codes sur ce site.

Ce qui est intéressant avec ShellExecute, c'est que le lien s'ouvrira dans l'explorateur par défaut.

MPi

cs_Exploreur · Answer

Salut Mpi,

Ben..l'avantage avec  Shell "rundll32.exe..........c'est qu'il fait la même chose mais avec normalement tout, donc tu peux t'en servir sur une bécanne qui n'a pas IE.

A+
Exploreur

cs_MPi · Answer

C'est exactement ce que je disais de ShellExecute.
Comme il ouvre l'explorateur par défaut, il n'est pas important d'utiliser un ou l'autre des Explorateurs les plus populaires ou impopulaires...

Sans définir quelque programme que ce soit, c'est celui par défaut qui sera utilisé.
Donc,
Tmp =  ShellExecute(0, "Open", "http://www.codes-sources.com/code.aspx?ID=40546http://www.codes-sources.com/code.aspx?ID=40546", "", "", vbNormalFocus)
devrait faire la même chose, si j'en crois ce que tu dis.

Je pense que l'important est d'utiliser la méthode avec laquelle on est le plus à l'aise... du moment qu'elle fonctionne, bien sûr ...  ¦¬)

MPi

cs_Exploreur · Answer

Salut Mpi,

Tout à fait d'accord avec toi.

A+
Exploreur

houariou2006 · Answer

g trouvé ton desir !!! il te sufi d'ajouter ce code:

Private Sub CommandButton1_Click()
Shell ("C:\Program Files\Internet Explorer\iexplore.exe" + "www.toto.com")

End Sub

khalid

houariou2006 · Answer

Exkuz il ya vé une erreur!!!
Private Sub CommandButton1_Click()
Shell ("C:\Program Files\Internet Explorer\iexplore.exe toto.com")
end sub

khalid

cs_Exploreur · Answer

Salut Houariou2006,

Petite info...tu fais comment si pas d'internet Exploreur sur le PC ?!!!
Imagine qu'il veule faire migré sa source, ou internet exploreur, n'est pas le navigateur par défaut?!!
Je pense qu'il vaut mieux comme dit MPI utiliser ShellExecute...


Lustrucru >> Depuis que tu as posté, tu ne donnes pas de suite à ton message, serai poli de ta part, de dire de quoi il en retourne, par respect des gens qui te proposent une solution, non ? (Désolé Casy, mais là, il pousse!!)


A+
Exploreur

houariou2006 · Answer

re g po donné signe de vie kar je sui un lycé1 débordé :
yo na un autre moin simple mé efficace,il faut ajouté un controle "Windowsmediaplayer" : pui insere ce code
Private Sub WindowsMediaPlayer1_Click(ByVal nButton As Integer, ByVal nShiftState As Integer, ByVal fX As Long, ByVal fY As Long)
WindowsMediaPlayer1.launchURL "http://toto.com/"
End Sub


kon tu clikera dessu ,la c ton bonheur!!!!!!!

khalid

cs_Exploreur · Answer

Salut houariou2006, ce n'est pas envers toi que je disais "Il ne donne plus de signe de vie....", mais envers Lustrucru.

A+
Exploreur

houariou2006 · Answer

ah dakor alor c une bonne astuce?

khalid

Lien vers un site à partir d'controle VBA

12 réponses

Votre réponse

Discussions similaires