Enregistrer en visual basic un xls en html
evaflint69
Messages postés
17
Statut
Membre
-
evaflint69 Messages postés 17 Statut Membre -
evaflint69 Messages postés 17 Statut Membre -
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
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
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?
