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