Enregistrer en visual basic un xls en html
evaflint69
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
-
evaflint69 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
evaflint69 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- Enregistrer en visual basic un xls en html
- Visual basic - Télécharger - Langages
- Audacity enregistrer son pc - Guide
- Visual basic editor - Télécharger - Langages
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
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?
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?