Bonjour tlm,
Deux solutions éventuelles à tester
La première va sauvegarder tout le classeur en 1 seul fichier html en gardant la structure des onglets
La seconde solution va sauvegarder chaque page du classeur en fichier html
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Sub TestHtml1() ActiveWorkbook.SaveAs Filename:="C:\test1.htm", FileFormat:=xlHtml End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub TestHtml2() Dim i As Byte For i = 1 To Sheets.Count ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _ "C:\Pagetest" & i & ".htm", Sheets(i).CodeName, _ "", xlHtmlStatic, "test" & i, "").Publish (True) Next End Sub
Partager