Lancer le navigateur à une adresse à partir d'une macro

[totofweb]

Bonjour
Est-il possible de lancer le navigateur web vers une adresse du type http://www.monurl.com/index.php?var1=a&var2=azerty à partir d'une macro Excel ? Si oui, pouvez-vour me donner un bout de code ou un site explicatif ?

Merci
Totofweb

 

[@+Thierry]

Salut TotoWeb, le Forum

Tu as deux solutions possibles à mon avis :

Solution 1
Soit en utilisant l'ActiveX WebBrowser dans un UserForm, tu as une démo que j'ai faite dans la partie Excel Goodies => MonExcelDownLoad

Tu as une autre démo, plus complète et plus utile, puisque que gérant les fils de ce forum....

=>> Lien supprimé



Solution 2
Sinon, tu peux directement lancer IE ou le Browser par défaut, avec, pour exemple bidon, ce genre de procédure :

Const XLD As String = "http://www.excel-downloads.com/"

Sub HyperLien()
Dim Msg As Byte
Dim Lien As String

Msg = MsgBox("Voulez vous aller en main page du Phorum ?" _
& vbCrLf & vbTab & "Répondez OUI" & vbCrLf _
& "ou bien visualiser les 200 derniers posts ?" _
& vbCrLf & vbTab & "Répondez NON", _
vbYesNo, "Choix de page XLD")

If Msg = 6 Then
Lien = XLD & "html/French/forum/list.php?f=1"
Else
Lien = XLD & "html/French/ForumChrono.php3"
End If

ActiveWorkbook.FollowHyperlink Address:=Lien, NewWindow:=True
End Sub

Voilà, avec çà tu as de quoi surfer TotofWeb !!

Bon Aprèm
@+Thierry