Exporter une feuille du classeur en htm(l)

Bonjour,

Je tente d'exporter une feuille de mon classeur qui en contient 5 en htm(l), mais ceci ne fonctionne pas...

NomFichierSauvegarde = "test.htm"

CheminSauvegarde = "T:\excel_dev"

Mon code est le suivant :

Sub MacroHTML(NomFichierSauvegarde, CheminSauvegarde)

ChDir CheminSauvegarde

With ActiveWorkbook.PublishObjects().Filename = NomFichierSauvegarde
.Publish (False)
.AutoRepublish = False
End With

End Su

Bonjour Marc,

Voici un début de code que tu pourras "adapter" à tes besoins.

A adapter : le nom de ta feuille ("Feuil1") et la plage de tes données, ne sachant pas j'ai supposé les données en "$A$1:$P$1000".

Sub convert_xl_html()

Sheets("Feuil1").Activate
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "T:\excel_dev\test.htm", "FEUIL1", "$A$1:$P$1000", _
        xlHtmlStatic, "Save html_7023", "MISE A JOUR : " & Now())
       .Publish (True)
       .AutoRepublish = False
    End With

End Sub

Bonne journée.

Joe

Le code fonctionne, je l'ai adapté mais l'extension est ".mht" comment faire pour que ça soit ".htm" ou ".html" ?

C'est bon j'ai résolu le problème ;)

Merci pour ton aide.