Bonjour,
Je souhaite copier des données (valeurs, formats...) entre 2 classeurs :
* Source : un classeur que j'ouvre (ActiveWorkBook.Sheets(0) )
* Destination : ce classeur (ThisComponent.Sheets(2) )
Le code ci dessous me copie les données de ThisComponent.Sheets(0) vers
ThisComponent.Sheets(2) au lieu des données ActiveWorkBook.Sheets(0) vers
ThisComponent.Sheets(2)
Qu'est-ce que j'ai fait de mal ??!! ;-0
D'avance, merci
Jean-Claude (Ooo 1.1.3 / Windows 98)
Sub TestCopyJCD
Dim wkshtDestin As Object
Dim ActiveWorkBook As Object
'Feuille destination, dans ce classeur
wkshtDestin = ThisComponent.Sheets(2)
'Choix et ouverture du classeur contenant les données à copier,
'retourne en objet le classeur ouvert
ActiveWorkBook = Ouvrir_Fichier_XL(Choisir_Fichier_Xl)
'Nom de la feuille source : Ok
Print ActiveWorkBook.Sheets(0).Name
'Contenu d'une cellule source: Ok
Print ActiveWorkBook.Sheets(0).getCellRangeByName("A2").String
'N° feuille source : Ok
Print "Sheet = " &
ActiveWorkBook.Sheets(0).getCellRangeByName("A1:M10").getRangeAddress.Sheet
'Plage feuille source à copier : Ok
Print "Plage = " &
ActiveWorkBook.Sheets(0).getCellRangeByName("A1:M10").getRangeAddress.StartR
ow _
& ", " &
ActiveWorkBook.Sheets(0).getCellRangeByName("A1:M10").getRangeAddress.StartC
olumn _
& ", " &
ActiveWorkBook.Sheets(0).getCellRangeByName("A1:M10").getRangeAddress.EndRow
_
& ", " &
ActiveWorkBook.Sheets(0).getCellRangeByName("A1:M10").getRangeAddress.EndCol
umn
'Copie des données Pas ok !!! ;-(
'les données copiées sont celles de la 1ère feuille de ce classeur
'et pas celles de ActiveWorkbook ??!!
wkshtDestin.copyRange (
wkshtDestin.getCellRangeByName("A1").getCellAddress, _
ActiveWorkBook.Sheets(0).getCellRangeByName("A1:M10").getRangeAddress)
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
