enregistrement html

[fifounet]

Bonjour le forum
j'ai un classeur Excel composé d' une trentaine de feuillets
différents avec chacun un nom de feuillet bien distinct
y a t il un moyen simple (macro)
pour enregistrer en une seule fois tous les feuillets séparément en html
avec le nom de chaque feuillet comme nom de fichier html
pour l'insant je les enregistre un par un et c'est tres long !!
J'espere etre assez clair
merci d'avance
fifounet

 

[MichelXld]

bonsoir

j'espere que ce lien pourra t'aider

Lien supprimé


bonne soiree
MichelXld

 

[fifounet]

Bonjour le forum
Merci Michel pour ton aiguillage mais ce n'est pas tout à fait ce que je veux.
Mon probleme est uniquement d'enregistrer en htlm
si quelqu'un à une idée?
d'avance merci
fifounet

 

[MichelXld]

rebonjour

et l'exemple proposé n'enregistre pas chaque onglet dans un fichier Html différent , en reprenant le nom de chaque feuille ?

Sub convertirFormatHtml_V01()
Dim Ws As Worksheet
Dim Fichier As String

For Each Ws In ThisWorkbook.Worksheets
Fichier = ThisWorkbook.Path & '\\\\\\\\' & Ws.Name & '.htm'
ActiveWorkbook.PublishObjects.Add _
(xlSourceSheet, Fichier, Ws.Name, '', xlHtmlStatic, '', '').Publish
Next

End Sub


bon apres midi
MichelXld

Message édité par: michelxld, à: 02/11/2005 14:53

 

[fifounet]

Bonsoir le forum
Merci Michel et mille excuses j'ai toujours beaucoup de mal à interpreter vb
Effectivement en retravaillant ta formule ça marche du feu de dieu !!
C'est exactement ce que je voulais
encore merci de votre aide si précieuse
je vais me coucher satisfait !!!
fifounet

 

[grosminet]

Salut fifounet,

OUAIP, c'est super fastoche. Demande au webmaster du site portsaintperettac, il pourra certainement te renseigner.