[Résolu][Calc] Export Zone Impression en ods

[boulauventre]

Bonjour,

Je cherche à exporter ma zone d'impression selectionnée en .ods et non PDF.

Actuellement j'ai trouvé une macro pour exporter en PDF et je pensais pouvoir la recycler pour exporter en .ods mais malheureusement même si je rajoute l'extension ods lors de l'enregistrement du fichier, il m'ouvrira le fichier que avec DRAW.

J'ai pas mal cherché sur le net et dans la bible OpenOffice mais je n'ai trouvé que des macro pour exporter en PDF.

Quelqu'un saurait m'aider sur ce point ? Dois-je repartir sur une nouvelle macro ou il suffit juste de modifier une ligne sur celle ci ?

Je vous met le fichier joint pour exemple

Merci d'avance

Ps : en fait je le veux en ODS car mes colonnes I J et K sont en "adapté à la taille de la cellule" donc illisible sur un PDF

[luky-luke]

Bonjour

pour obtenir les coordonnées d'une zone d’impression

Code : Tout sélectionner

sub Impression
Dim oDoc as Object, ZoneImp as Object, oFeuille as Object
Dim Export As Variant
oDoc=ThisComponent
oFeuille =oDoc.Sheets.GetByName("main")
'renvoi la collection de zone d'impression dans la feuille
'Si il y en a plusieurs il faudra choisir la bonne la 1° Zone(0), la 2° Zone(1), etc...
ZoneImp = oFeuille.PrintAreas 
Export = oFeuille.GetCellRangeByPosition(ZoneImp(0).StartColumn,ZoneImp(0).StartRow,ZoneImp(0).EndColumn,ZoneImp(0).EndRow).DataArray
End sub

Je cherche à exporter ma zone d'impression selectionnée en .ods

Ne sachant pas très bien si tu veux exporter une sélection faite à la main ou une zone d’impression déjà existante.
Pour l'export je te renvoie vers le suprême de code qui va bien.
Copier / coller entre deux classeurs ou feuilles
Cordialement
Luke

[boulauventre]

Bonjour,

Super c'est exactement ce qu'il me fallait

En fait je cherchais plus compliqué alors que la solution est toute simple...Comme souvent...

Merci beaucoup Luky-Luke

Bonne soirée

boulauventre