sauver automatiquement en hml

Bonjour
ActiveWorkbook.SaveAs Filename:="C:DOCClasseur1.htm", _
FileFormat:=xlHtml

Cordialement
Pascal

"DA" <nospam@club-internet.fr> a écrit dans le message de
news:40c83f21$0$307$7a628cd7@news.club-internet.fr...

Bonjour
J'enregistre un feuille excel sous format html avec l'enregistreur de
macro

afin de pouvoir exploiter le code , mais la macro reste vide.
Comment faire pour enregistrer en VBA sous format html ? (si c'est
possible)

Merci d'avance de votre aide

bonjour,

en complement, si tu veux l'enregistrer automatiquement
avec le nom de ton classeur :

Sub SaveHtm()
Dim FichName As String
Application.DisplayAlerts = False
FichName = Left(ThisWorkbook.Name, Len
(ThisWorkbook.Name) - 3) & "htm"
ChDir "C:Documents and SettingsDocs Excelessais"
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsDocs Excelessais" &
FichName, _
FileFormat:=xlHtml, ReadOnlyRecommended:=False,
CreateBackup:=False
End Sub

(attention a la mise en ligne du code)

bon courage.

-----Message d'origine-----
Bonjour
ActiveWorkbook.SaveAs Filename:="C:DOCClasseur1.htm", _
FileFormat:=xlHtml

Cordialement
Pascal

"DA" <nospam@club-internet.fr> a écrit dans le message de
news:40c83f21$0$307$7a628cd7@news.club-internet.fr...

Bonjour
J'enregistre un feuille excel sous format html avec
l'enregistreur de

macro

afin de pouvoir exploiter le code , mais la macro
reste vide.

Comment faire pour enregistrer en VBA sous format
html ? (si c'est

possible)

Merci d'avance de votre aide

.