Merci beaucoup, j'avais vainement cherché avec copy
Claude
> Date: Mon, 9 Nov 2009 15:57:40 +0000
> From: tvata...@starxpert.fr
> To: prog@fr.openoffice.org
> Subject: Re: [prog] Copier-coller entre deux classeurs
>
> Bonjour,
>
> Pour transférer les valeurs, formules et surtout la mise en forme d'une plage
> de cellules d'un document calc vers un autre, vous pouvez utiliser
> l'interface "XTransferableSupplier" du controlleur :
>
> option explicit
>
> Sub Main
>
> dim srcDoc as object
> dim srcController as object
> dim srcRange as object
>
> 'mon document source
> srcDoc = thisComponent
> srcController = srcDoc.currentController
> 'la plage de cellule à copier
> srcController.select(srcDoc.sheets.getByName("Feuille1").getCellRangeByName("B4:D13"))
> 'recuperation des donnees "transferables"
> srcRange = srcController.getTransferable()
>
> dim destDoc as object
> dim destController as object
>
> 'creation du document de destination
> destDoc = starDesktop.loadComponentFromUrl("private:factory/scalc", "_blank",
> "com.sun.star.frame.FrameSearchFlag.CREATE", array())
> destController = destDoc.currentController
> 'selection de la cellule de destination
> destController.select(destDoc.sheets.getByName("Feuille1").getCellRangeByName("D5"))
> 'transfert des donnees du document source vers le document cible
> destController.insertTransferable(srcRange)
>
> End Sub
>
> Cordialement,
> T. Vataire
>
> ----- Mail Original -----
> De: "c c" <prog_amat...@hotmail.fr>
> À: "liste prog" <prog@fr.openoffice.org>
> Envoyé: Lundi 9 Novembre 2009 15:05:35
> Objet: [prog] Copier-coller entre deux classeurs
>
>
> Bonjour,
>
>
>
> Apparemment le "copyrange" ne fonctionne pas entre deux classeurs.
>
>
>
> Je n'arrive pas à trouver comment copier-coller les cellules d'une plage d'un
> classeur dans un autre classeurs hormis avec les dataarray mais dans ce cas
> je perds les formats et les formules.
>
>
>
> Y-a-t-il une solution?
>
>
>
> Merci
>
>
>
> Claude
>
> _________________________________________________________________
> Nouveau Windows 7 : Simplifiez votre PC ! Trouvez le PC qui vous convient.
> http://clk.atdmt.com/FRM/go/181574580/direct/01/
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
> For additional commands, e-mail: prog-h...@fr.openoffice.org
>
_________________________________________________________________
Nouveau! Découvrez le Windows phone Samsung Omnia II disponible chez SFR.
http://clk.atdmt.com/FRM/go/175819072/direct/01/
