enregistrer graphique sous format html

Bonjour le forum
j'ai un classeur Excel composé d' une trentaine de feuillets
graphiques avec chacun un nom de feuillet bien distinct
y a t il un moyen simple (macro) pour enregistrer en une seule fois tous les feuillets séparément en html avec le nom de chaque feuillet comme nom de fichier html

j'ai fait la macro suivante mais ca ne donne pas tout a fait les resultats attendus (les graphiques sont stockés sur un repertoire intermediaire DCA_fichiers et iles noms sont graph001.htm, graph002.htm ...) :

Dim Ws As Chart, Fichier As String,
Workbooks('histo_graphique.xls').Activate

For Each Ws In ActiveWorkbook.Charts
Fichier = ThisWorkbook.Path & '\\page_html_graph\\' &Ws.Name & '.htm'
ActiveWorkbook.PublishObjects.Add _
(xlSourceSheet, Fichier, Ws.Name, '', xlHtmlStatic, '', '').Publish
End If
Next


grosminet