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" <[email protected]>
À: "liste prog" <[email protected]>
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: [email protected]
For additional commands, e-mail: [email protected]
