cellule = cellule d'un autre excel

Version imprimable

10/01/2011, 09h50
redstoff

cellule = cellule d'un autre excel
bonjour,

je cherche à connaitre la syntaxe VB pour dire à une cellule qu'elle est égale à une cellule d'un autre fichier.

genre
Code:

1 2 range("a1") = sheets("xx").range("a1")
je sais que le sheets() n'est pas bon. c'est pour illustrer ma demande.

si quelqu'un peut m'aider.

merci
10/01/2011, 09h55
mayekeul
bonjour,

simplement comme ceci
Code:

1 2 range("A1")=Workbooks("XX").Sheets("X1").range("A1")
10/01/2011, 10h00
redstoff

lol oui tout simple
je te remercie
10/01/2011, 10h14
redstoff
petit soucis en faisant cette commande il me recopie la valeur sur la feuille source, alors qu'il devrait la copier sur le 2e fichier

en gros ma cmmande est:
Code:

1 2 3 Workbooks.Open Filename:="M:\poubelle\Michael\anapiece1 v2.xls" Windows("anapiece1 v2").Activate Range("ck2") = Workbooks("selectdef1 v2").Sheets("feuil1").Range("C2")
il devrait me copier en ck2 du fichier anapiece la valeur c2 du fichier selectdef.

a la place il copie en ck2 du fichier selectdef la valeur c2 du fichier selectdef
10/01/2011, 10h20
rvtoulon

Bonjour à tous,
essaie comme ceci:

Code:

Workbooks("fichierdestination.xls").Sheets("feuil1").Range("A1").Value = Workbooks("fichiersource.xls").Sheets("feuil1").Range("A1").Value

en adaptant biensur.

en faisant quelque chose dans le genre

Code:

1
2
3
4
5
6
7
8
9
10
 
dim srcWB as workbook,srcSh as worksheet    'source
dim dest as workbook,destSh as worksheet      'destination
 
set srcWb = workbooks("selectdef")
set srctSh=srcwb.sheets("XXX")
set destWb=Workbooks.Open Filename:="M:\poubelle\Michael\anapiece1 v2.xls"
set desttSh= destwb.sheets("feuil1")
 
destsh.Range("ck2") = srcsh.Range("C2")

10/01/2011, 10h29
redstoff

c'est bon ça marche comme ça je te remercie bonne journée