Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

enregistrement html

F

fifounet

Guest
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
 
F

fifounet

Guest
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

XLDnaute Barbatruc
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
 
F

fifounet

Guest
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
 

Discussions similaires

Réponses
3
Affichages
854
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…