Discussion :

[familledacp]

Bonjour à tous et toutes

Depuis access, je fais un certain nombre d'opérations sur un ficher xls (ref.xls), avec par exemple l'alignement, la taille de la police et la police tels que repris sur le code ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
XlRefApp.Workbooks("ref.xls").Worksheets(secteurbis).Range("b6:E1000").Font.Name = "Verdana"
XlRefApp.Workbooks("ref.xls").Worksheets(secteurbis).Range("b6:E1000").Font.Size = 8
XlRefApp.Workbooks("ref.xls").Worksheets(secteurbis).Range("B6:B1000").HorizontalAlignment = xlCenter
XlRefApp.Workbooks("ref.xls").Worksheets(secteurbis).Range("b6:b1000").Font.Bold = True

A la fin du code, je souhaite sauvegarder l'intégralité du classeur au format HTM. J'ai fait une macro et recopié le code que voici. Mon souci est qu'il ne se passe rien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
XlRefApp.Workbooks("ref.xls").SaveAs FileName:="C:\Users\Daniel S\Desktop\Ref Essai.htm", _
        FileFormat:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False

Au final, ref essai.htm + un sous dossier "ref essai_fichiers" comprenant des fichiers sheet001.htm, ...... (autant de fichiers que de feuilles dans le fichiers xls d'origine)

Si vous avez des pistes, je suis preneur

Bonne journée

Daniel S

[Jean-Philippe André]

salut,

les meilleures pistes restent les , toujours y faire un saut avant de poser ses questions
http://excel.developpez.com/faq/inde...#SauvegardeHtm

[familledacp]

Bonsoir

Merci pour cet envoi, j'avais vu ce post, mais j'ai l'impression qu'il ne correspond pas à mon souhait car il cree a priori seulement une page htm par feuille.

Quand je sauvegarde "manuellement" un classeur xls au format htm, on retrouve sur la page htm, en pied de page, les onglets des différentes pages

J'ai quand meme essayé de sauvegarder une feuille de mon fichier excel au format HTM selon le code ci dessous ; il ne se passe malheureusement rien.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
XlRefApp.Workbooks("ref.xls").Worksheets("HOSPITALIER").PublishObjects.Add _
        (xlSourceSheet, "d:\hospi.htm", "HOSPITALIER", "", xlHtmlStatic, "", "").Publish

A bientot

Daniel