Sub Lancement
   Dim url
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set wScript = CreateObject("WScript.Shell")
   url = "http://www.monsite.com/index.php?ARTCOD="& getcodecourant()
   Commande = "%COMSPEC% /C iexplore " & url
   Result = wScript.Run(Commande, 0, True)
   set Shell = CreateObject("Shell.Application")
   shell.Open url
End Sub