Enregistrer un xls en html

Bonjour,

J'aimerai enregistrer un fichier xls en ficher htm en vb.

Quand je fais enregistrement de macro et que je fais la macro a la main, ca me donne ce code.
Code Visual Basic :

Code:

---

1 2 3 4 5 6 7

With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _ "D:\HelpMeDoc\clients\_Temp macro\plop.htm", "Feuil1", "", xlHtmlStatic, _ "recap_22858", "") .Publish (True) .AutoRepublish = False End With ChDir "D:\HelpMeDoc\clients\_Temp macro"

---

j'ai un souci avec le 22858, c'est quoi ce chiffre??? et d'ou il sort?? comment je le met en vb?

merci a vous.

Je viens de trouver un truc pas mal:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Ws As Worksheet Dim Fichier As String, MonCode As String Dim i As Byte   'Boucle sur les feuilles de calcul du classeur For Each Ws In ThisWorkbook.Worksheets 'Définit le chemin de stockage de chaque page htm Fichier = ThisWorkbook.Path & "" & Ws.Name & ".htm" 'Sauvegarde au format htm ActiveWorkbook.PublishObjects.Add _ (xlSourceSheet, Fichier, Ws.Name, "", xlHtmlStatic, "", "").Publish   Next

---

Ce code enregistre toutes les feuilles en htm.
Mais ce code ne marche que sur excel (j'ai fait un test sur macro excel).
Ce code ne marche pas a partir de vb outlook.
Car en fait je pilote excel de outlook, apres ca me permet facilement d'envoyer des mails ;)

pourquoi? Ai-je oublier une reference a rajouter?