Enregistrer en visual basic un xls en html

Question

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.

evaflint69 · Answer

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?

Enregistrer en visual basic un xls en html

1 réponse

Discussions similaires

Newsletters