Discussion :

[evaflint69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[evaflint69]

Je viens de trouver un truc pas mal:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?