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

Signaler
-
Messages postés
8536
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
8 mai 2021
-
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.

3 réponses

Messages postés
8536
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
8 mai 2021
1 660
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
1
Date d'inscription
lundi 14 mars 2011
Statut
Membre
Dernière intervention
15 mars 2011

Ca marche nickel, merci beaucoup.
Messages postés
8536
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
8 mai 2021
1 660
De rien, au plaisir de te relire sur le forum