enregistrer un fichier xls en htm

bonsoir Fred

tu peux tester


Sub SauvegardeFeuilleFormatHtml()
'testé avec Excel2002
'cet exemple enregistre la feuille 1 du claseur actif , au format htm
Dim Fichier As String, Nom As String

Range("A1").Select ' necessaire lorsque la macro est lancée depuis un CommandButton

'recupere le nom du classeur contenant la macro ( suppression du ".xls")
Nom = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)

'ThisWorkbook.Path permet de recuperer le chemin du classeur contenant cette macro
Fichier = ThisWorkbook.Path & "\" & Nom & ".htm"

'enregistrement au format Htm
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, Fichier, "Feuil1", "", xlHtmlStatic, "", "").Publish

End Sub


bonne soirée
MichelXld