Bonsoir, Trop long d'attendre à demain, ça marche du tonnerre! Encore merci !
> -----Message d'origine----- > De : Michel Rudelle [mailto:[email protected]] > Envoyé : mercredi 17 avril 2013 18:53 > À : '[email protected]' > Objet : RE: [fr-users] Re: macro: filtres d'export PDF > > Bonsoir Pierre-Yves, > > > De : pierre-yves samyn [mailto:[email protected]] > > Envoyé : mercredi 17 avril 2013 18:08 > > > > > > Michel Rudelle wrote > > > Je suis donc à la recherche des filtres permettant dans une macro > > > dexporter > > > un fichier Calc avec les options suivantes : > > > - Incorporer le fichier Open Document > > > - PDF/A > > > > D'après l'enregistreur il semble que ce soit respectivement: > > IsAddStream (true/false) > > SelectPdfVersion (0/1) > > J'avais essayé avec l'enregistreur et déjà repéré le SelectPdfVersion, > mais le IsAddStream ne m'avait pas du tout inspiré ! > > J'essaie dès demain ... > > Merci beaucoup, > Michel > > > Cela nous donne donc quelque chose comme: > > > > sub ExportPdfAHybride > > dim propFich(1) as new com.sun.star.beans.PropertyValue > > dim filterProps(2) as new com.sun.star.beans.PropertyValue > > dim adresseDoc as string > > > > filterProps(0).Name = "Selection" > > filterProps(0).Value = thisComponent.currentSelection > > 'filterProps(0).Value = thisComponent.currentController.ActiveSheet > > filterProps(1).Name = "IsAddStream" > > filterProps(1).Value = true > > 'filterProps(1).Value = false > > filterProps(2).Name = "SelectPdfVersion" > > filterProps(2).Value = 1 > > > > propFich(0).Name = "FilterName" > > propFich(0).Value = "calc_pdf_Export" > > propFich(1).Name = "FilterData" > > propFich(1).Value = filterProps() > > > > adresseDoc = convertToURL("c:\Tests\test.pdf") > > thiscomponent.storeToURL(adresseDoc, propFich()) > > end sub > > > > > > Cordialement > > Pierre-Yves > > > > > > > > > > -- > > View this message in context: > http://nabble.documentfoundation.org/macro- > > filtres-d-export-PDF-tp4050593p4050599.html > > Sent from the Users mailing list archive at Nabble.com. > > > > -- > > Envoyez un mail à [email protected] pour savoir comment vous > > désinscrire > > Les archives de la liste sont disponibles à > > http://listarchives.libreoffice.org/fr/users/ > > Tous les messages envoyés sur cette liste seront archivés publiquement > et > > ne pourront pas être supprimés -- Envoyez un mail à [email protected] pour savoir comment vous désinscrire Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
