probleme macro savehtml

[blacsap]

salut
voila
j'ai recuperer une macro pour sauver en html mais il y a 1 probleme "erreur de compilation:sub ou function non defini"
quelqu un peut il me donner 1 renseignement sur la route a suivre pour corriger cette erreur,ou la solution 🙂🙂🙂🙂🙂:
merci d'avance
@+
blacsap

 

[Z]

Salut blacksap et le forum,


Ou est ta sous procédure htlconvert dans ton module ? qui plus est tes données sont sur la feuille 1 et tu travailles sur la feuille 5 dans ton code ...

Dis nous ta source complète afin qu'on puisse t'aider.



A+++

 

[ZON]

Re,


Oups m'est trompat dans mon pseudo...Peut etre la nuit a été trop longue pour moi....


A+++

 

[@+Thierry]

Bonjour ZON


Héhéhé............................... Z

Comme........

​

​

@+Thierry​

 

[ZON]

Re,

hi hi Thierry, je préfère les vachettes que le cheval

A+++

 

[blacsap]

salut
j'ai trouvé c'est exemples sur ce forum loooooool
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=1050&t=1050

@+
blacsap

 

[ZON]

Re,


Blacksap, c'est ce type de résultat que tu voudrais en pièce jointe

 

[@+Thierry]

héhéhé

On voit que tu as regardé la démo "SpreadSheet" Zon !!!

@+Thierry

 

[blacsap]

re
c'est ca que je veux mais sans les menus des feuilles excel
merci pour ta reponse
@+
blacsap

 

[ZON]

Re,

Pas du tout Thierry, j'en avais fait une y a qques temps qui plus est,

Blacksap j'utilise la méthode publish de la collection publishobjects....


A+++

 

[blacsap]

reeeeeee
merci Zon pour ton aide mais j'ai reussi a faire mon code pour enrgistrer ma feuille excel en htm par 1 macro
voila mon code (si tu as mieux je suis preneur)
Sub Macro1()

With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\pascal.htm", "Feuil1", "", _
xlHtmlStatic, "htm_32174", "")
.Publish (True)
.AutoRepublish = False
End With
ChDir "C:\Documents and Settings\blacsap\Bureau\htm"
End Sub
merci encoreeeeeee 🙂🙂)🙂🙂)))🙂🙂🙂🙂🙂🙂🙂🙂🙂
@+

 

[ZON]

Re,

Blacksap on peut l'améliorer encore certainement mais voici un exemple


Sub Htm(Chemin As String, WS As String, plage As String)
ThisWorkbook.PublishObjects.Add(xlSourceRange, Chemin, WS, plage, xlHtmlStatic, "", "").Publish (True)
End Sub

Sub Test()
Dim plage As String, NomHtm As String
Const Rep1 = "C:\"
NomHtm = "Toto.htm"
plage = Sheets(1).UsedRange.Address ' à adapter
Debug.Print plage
Htm Rep1 & NomHtm, Sheets(1).Name, plage 'appel
End Sub


A+++

 

[@+Thierry]

Re

Ah bon Zon,

Car avec "SpreadSheet" il y a "Export" qui fait ceci tout seul !! (dommage d'ailleurs que ce ne soit pas aussi simple pour les Sheets...)

Bonne Soirée
@+Thierry

 

[ZON]

Re,


Thierry, essaies sur une plage de cellules en enregistrant en tant que Page Web, moi aussi j'ai été surpris. Billou doit se servir du controle spreadsheet pour cette commende du Menu Fichier...

A+++