Enregistrer en visual basic 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 :
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.
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 :
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.
Configuration: Windows Vista Safari 532.0
1 réponse
-
Je viens de trouver un truc pas mal:
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) mais ne marche pas a partir de vb outlook. pourquoi? Ai-je oublier une reference a rajouter?
