probleme macro savehtml

Z

Z

Guest

• 10 Août 2003

• #2

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+++

 

Vote positif 0 Vote négatif

Z

ZON

Guest

• 10 Août 2003

• #3

Re,


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


A+++

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 10 Août 2003

• #4

Bonjour ZON


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

Comme........

​

​

@+Thierry​

 

Vote positif 0 Vote négatif

Z

ZON

Guest

• 10 Août 2003

• #5

Re,

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

A+++

 

Vote positif 0 Vote négatif

B

blacsap

Guest

• 10 Août 2003

• #6

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

 

Vote positif 0 Vote négatif

Z

ZON

Guest

• 10 Août 2003

• #7

Re,


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

 

Pièces jointes

• Page.zip

  2 KB · Affichages: 15

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 10 Août 2003

• #8

héhéhé

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

@+Thierry

 

Vote positif 0 Vote négatif

B

blacsap

Guest

• 10 Août 2003

• #9

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

 

Vote positif 0 Vote négatif

Z

ZON

Guest

• 10 Août 2003

• #10

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+++

 

Vote positif 0 Vote négatif

B

blacsap

Guest

• 10 Août 2003

• #11

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 ))))
@+

 

Pièces jointes

• htm.zip

  7.7 KB · Affichages: 13
• htm.zip

  7.7 KB · Affichages: 14
• htm.zip

  7.7 KB · Affichages: 13

Vote positif 0 Vote négatif

Z

ZON

Guest

• 10 Août 2003

• #12

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+++

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 10 Août 2003

• #13

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

 

Vote positif 0 Vote négatif

Z

ZON

Guest

• 10 Août 2003

• #14

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+++

 

Vote positif 0 Vote négatif