Script VBS - convertir xls en html
Résolu
vbdourthe
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
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.
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.
3 réponses
-
Bonjour,
Essaie:
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\" & Filename, 44 ObjExcel.Workbooks(1).Close ObjExcel.DisplayAlerts = True ObjExcel.Quit
ça devrait fonctionner -
-
De rien, au plaisir de te relire sur le forum
