copy_paste entre classeurs

[elhich]

salut forum

j'ai pas reussi à copier une plage de cellules d'une feuille1 de classeur1 vers la feuille1 de classeur2
ces instrucion ne marche pas sauf dans la meme feuille :

Workbooks.Open Filename:="c:\classeur2.xls"
Workbooks("claisseur1").Sheets("feuille1").Range("a1:i12").Copy
ActiveSheet.Paste Destination:=Workbooks("classeur2").Sheets("feuille1").Range("J1:r12")


j'ai besoin de votre aide si possibe
merci à tout le monde

 

[Chris]

Essai plutôt dans ce sens la :

Workbooks.Open Filename:="c:\classeur2.xls"

Workbooks("classeur1").Sheets("feuille1").Range("a1:i12").Copy
Workbooks("classeur2").Sheets("feuille1").Range("J1").past

Je n'ai pas le temps de vérifier, mais il me semble que tu dois passer par un :
Workbooks("classeur2").select
Sheets("feuille1").Range("J1").past

 

[elhich]

salut Chris
merci pour votre reponce mais ça marche pas aussi
les lignes des codes que j'ai passé marche seulement dans la meme classeur mais je vois pourquoi ça marche pas lors de passage d'un classeur à un autre

 

[LaurentTBT]

Bonsoir,

Avec PasteSpecial, peut-être?
Workbooks("classeur1").Worksheets("feuille1").Range("a1:i12").Copy
Workbooks("classeur2").Worksheets("feuille1").Range("J1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Bye

 

[elhich]

merci Laurent TBT
mais j'ai pas reussi aussi il apparait ce message d'erreur
"canot change part of a merget cell"