enregistrer un fichier xls en htm

[fred]

bonjour,

je voudrais enregistrer un fichier xls en en fichier htm. Et je voudrais que ce fichier soit sauvegardé dans le meme répertoire que mon fichier xls et avec le meme nom.

Je suis bloqué et j'espère que vous pourrez m'aider

merci beaucoup,

fred

 

[michel]

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