Discussion :

[redstoff]

bonjour,

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

genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mayekeul]

bonjour,

simplement comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
range("A1")=Workbooks("XX").Sheets("X1").range("A1")

[redstoff]

lol oui tout simple
je te remercie

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[rvtoulon]

Bonjour à tous,
essaie comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

en adaptant biensur.

[mayekeul]

en faisant quelque chose dans le genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[redstoff]

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