Bonjour le forum
Pour enregistrer des pages html de chaque feuille de mon fichier j'utilise le code suivant:
For Each ws In ActiveWorkbook.Worksheets
Set wb = ActiveWorkbook
With wb.PublishObjects.Add _
(xlSourceRange, Fichier, ws.Name, "$A$1:$J$44", xlHtmlStatic, ""...