Script VBS - convertir xls en html Résolu/Fermé

Question

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	est\", 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.

Patrice33740 · Answer

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

vbdourthe · Answer

Ca marche nickel, merci beaucoup.

Patrice33740 · Answer

De rien, au plaisir de te relire sur le forum

Script VBS - convertir xls en html

3 réponses

Discussions similaires