Script VBS - convertir xls en html

Bonjour,

Voici mon problème.
Je souhaiterais automatiser la conversion de fichier Excel (.xls) en .html avec VBScript. La sauvegarde en .xls fonctionne, mais pas avec le paramètre xlHTML.

Voici mon code:

Set ObjExcel = CreateObject("Excel.Application")
Set ActiveWorkbook = ObjExcel.Workbooks.Open("C:\vols\vol.xls")
ObjExcel.visible = false
ObjExcel.DisplayAlerts = False
Filename = "vol"

ActiveWorkbook.SaveAs "C:\vols\test\", xlHTML


ObjExcel.Workbooks(1).Close
ObjExcel.DisplayAlerts = True
ObjExcel.Quit


Lors de l'execution avec "cscript.exe", il me renvoi:

(11,2)Microsoft Office Excel: La méthode SaveAs de la classe Workbook a échoué.

Je travaille sous Office 2007

Merci d'avance pour votre réponse.