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

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur: Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !

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

Messagepar boulauventre » 10 Nov 2019 01:43

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 :super:

Merci d'avance :bravo:

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 :marto:
Pièces jointes
export-calc.ods
(55.29 Kio) Téléchargé 3 fois
Dernière édition par boulauventre le 10 Nov 2019 22:41, édité 1 fois.
libre office 6.2.8 sous Windows 10
boulauventre
Membre OOrganisé
Membre OOrganisé
 
Message(s) : 77
Inscrit le : 06 Juin 2016 21:23

Re: [Calc] Export Zone Impression en ods

Messagepar luky-luke » 10 Nov 2019 03:34

Bonjour

pour obtenir les coordonnées d'une zone d’impression
Code : Tout sélectionner   AgrandirRéduire
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

boulauventre a écrit: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
AOO 4.1.3 et LibO 5.3.7.2 Ubuntu 16.04 LTS et Debian 9
Xray ne tient pas lieu de tout, mais une pratique sans Xray ne vaut pas grand chose
Avatar de l’utilisateur
luky-luke
InconditiOOnnel
InconditiOOnnel
 
Message(s) : 914
Inscrit le : 27 Nov 2010 01:17
Localisation : gâtine deux-sèvrienne

Re: [Calc] Export Zone Impression en ods

Messagepar boulauventre » 10 Nov 2019 22:40

Bonjour,

Super c'est exactement ce qu'il me fallait :bravo:

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

Merci beaucoup Luky-Luke

Bonne soirée

boulauventre
libre office 6.2.8 sous Windows 10
boulauventre
Membre OOrganisé
Membre OOrganisé
 
Message(s) : 77
Inscrit le : 06 Juin 2016 21:23


Retour vers Macros et API

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : MSN [Bot] et 2 invité(s)