selection pour enregistrement html

fifounet

XLDnaute Occasionnel
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 !
 

Membres actuellement en ligne

Statistiques des forums

Discussions
312 084
Messages
2 085 194
Membres
102 812
dernier inscrit
abdouami