3 messages in org.openoffice.fr.progRe: [prog] Export HTML d'un fichier Calc
FromSent OnAttachments
m.gr...@cnafmail.frNov 13, 2008 12:51 am 
Francois GattoNov 14, 2008 10:23 pm 
m.gr...@cnafmail.frNov 16, 2008 11:49 pm 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] Export HTML d'un fichier CalcActions...
From:m.gr...@cnafmail.fr (m.gr@cnafmail.fr)
Date:Nov 16, 2008 11:49:52 pm
List:org.openoffice.fr.prog

J'ai eu cette idée là aussi. Seulement, soit je conserve les valeurs mais sans la mise en forme ; soit la mise en forme mais sans les valeurs. En effet, le tableau que je veux exporter contient des cellules dont les valeurs sont le résultat d'une recherche effectuée sur une autre feuille du classeur.

Pour l'instant, le meilleur résultat que j'ai obtenu c'est de créer une image du tableau que je veux exporter ; l'enregistrer dans un autre classeur et exporter ce nouveau classeur.

Merci pour ton aide.

Michel GRIMAULT

Francois Gatto <oo@volcar.org> a écrit sur 15/11/2008 07:23:40 :

Bonjour,

m.gr@cnafmail.fr wrote:

Bonjour,

En version 3, l'export HTML d'un fichier Calc fonctionne parfaitement. En revanche, si l'on veut exporter une partie de ce fichier, cela ne fonctionne pas bien que la possibilité soit ouverte (cf copie boîte de dialogue ci-dessous) :

(Embedded image moved to file: pic04215.jpg)

Ta capture n'est pas passée.

De même, en agissant par macro, l'export HTML fonctionne pour l'intégralité du fichier et non pas uniquement pour la sélection opérée sur une feuille. Voici le code utilisé :

Sub ExportHTML()

Dim oDocument, oFeuilCONV, oSelection, oCC As Object Dim sAdress As String Dim propFich(1) As New com.sun.star.beans.PropertyValue

oDocument = thisComponent oFeuilCONV = oDocument.Sheets.getByName( "conv_europe" ) oSelection = oFeuilCONV.getCellRangeByName( "A1:I29" ) oCC = oDocument.CurrentController oCC.Select( oSelection )

sAdress = convertToURL( "C:\MGR\Adoc\baremes\TransfertHTML.html" )

propFich(0).Name = "FilterName" propFich(0).Value = "HTML (StarCalc)" propFich(1).Name = "SelectionOnly" propFich(1).Value = true

oDocument.storeToURL( sAdress, propFich() )

On Error Resume Next Print "Erreur : " & Err

End Sub

Merci d'avance pour l'aide que quelqu'un pourrait m'apporter.

Michel GRIMAULT

Une idée : Copier la sélection dans une autre feuille, puis générer le html à partir ce cette nouvelle feuille.

<variante *préférée*> masquer les lignes non désirées, puis générer l'export. </variante>