Set xl = WScript.CreateObject("excel.Application") 
xl.visible=true
xl.workbooks.open("http://jacxl.free.fr/cours_xl/vba/nouv_barre.xls")