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