données excel sur une page

[guy]

j'ai régulièrement à mettre des résultats issus de données excel sur des page web. Cela représente quelquefois 600 lignes avec 7 colonnes. Si je fais simplement enregistrer en tant que page web, son poids est de l'ordre de 200ko, ce qui est trop.

J'ai vu sur certains sites des pages identiques qui ont un page de 30 à 40 ko, ce qui est convenable. y a-t-il, une manip, quelconque.

Merci de votre concours

[ams51]

Une macro devrait pouvoir faire ça simplement

[ams51]

tu peux t'inspirer de ça :

LeNom = "nomdemonfichier"
LeRep = "c:\repertoiredemonfichier"
LeFic = LeRep + "\" + LeNom + ".htm"

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile LeFic
Set f = fs.GetFile(LeFic)
Set ts = f.OpenAsTextStream(2, -2)

DebutTable = "<div class=""maclasse""><table>"
FinTable = "</table></div>"
DebutLig = "<tr>"
FinLig = "</tr>"
Cel1 = "<td>"
Cel2 = "</td>"

PremLig = 1
PremCol = 5
PasCol = 6

i = PremCol

ts.write DebutTable

Do Until FStats.Cells(PremLig, i) = ""
        Val1 = Date
        Val2 = FStats.Cells(PremLig, i + 2)
        Val3 = FStats.Cells(PremLig, i + 3)
        Val4 = FStats.Cells(PremLig, i + 4)
        Val5 = FStats.Cells(PremLig, i + 5)
        ts.write DebutLig
        ts.write Cel1 + Format(Val1, "[$-F800]dddd dd mmm yyyy") + Cel2
        ts.write Cel1 + Val2 + Cel2
        ts.write Cel1 + Val3 + Cel2
        ts.write Cel1 + Val4 + Cel2
        ts.write Cel1 + Val5 + Cel2 + FinLig
Loop
ts.write FinTable
ts.Close