selection pour enregistrement html

[fifounet]

Bonsoir le forum
j'ai récupéré une macro qui m'enregistre en html chaque feuillets d'un classeur dans un répertoire avec le nom du feuillet comme nom de fichier html.
je veux modifier cette macro pour n'enregistre qu'une zone (A1:O45) de chaque feuillet.
après plusieurs essais je n'y parviens pas !
Quelqu'un peut-il me renseigner?
Ci dessous la macro en question:

Sub enregishtml()
Dim ws As Worksheet, Fichier As String
Workbooks("toto.xls").Activate
For Each ws In ActiveWorkbook.Worksheets
Fichier = ThisWorkbook.Path & "\page_html_toto\" & ws.Name & ".htm"
' creation du fichier htm
ActiveWorkbook.PublishObjects.Add _
(xlSourceSheet, Fichier, ws.Name, "", xlHtmlStatic, "", "").Publish
Next
End Sub

Merci !

 

[Staple1600]

Re : selection pour enregistrement html

Bonsoir


Regardes dans ce fil
https://www.excel-downloads.com/thr...tant-que-page-web-une-plage-de-cellule.89147/

Et plus précisément Lien supprimé

 

[fifounet]

Re : selection pour enregistrement html

Merci beaucoup staple 1600
Apres adaptation à mon appli ça marche !!
Content de ton aide
Merci le forum !
à bientot