Manipulation de deux classeurs

Bonjour,

D'après ce que j'ai pu voire dans le forum et le faq, ma question va surement paraitre bête, mais comme je n'ai pas réussi à mettre le main sur une réponse qui soit à mon niveau...

Bref, je suis en possession de deux classeurs (book1 et book2), chacun contenant deux feuilles (sheet1 et sheet2). Je souhaite pouvoir avoir une ligne de commande me permettant d'écrire dans la case B2 de sheet2 de book1, la valeur de la case C3 de sheet2 de book2.

Soit quelque chose du style :

Code:

---

1 2 3 4 5 6

dim cl1 as workbook, cl2 as workbook dim s1 as sheet, s2 as sheet cl1 = "c:\book1.xls" cl2 = "c:\book2.xls" cl1.s1(2) cell("B2") = cl2.s2(2) cell("C3")

---

Sans aucune surprise, ce code ne marche pas, car l'appelle d'une cellule d'une feuille d'un classeur ne peut décemment pas ressembler à ça. Mais, vraiment, je n'ai pas réussi à trouver quelle forme il pourrait avoir.

Merci pour tout conseil

Bonjour,
à mettre dans book1

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub tst() Dim awbk As Workbook, wbk As Workbook   Set wbk = Workbooks.Open("c:\book2.xls") Set awbk = ThisWorkbook awbk.Sheets("Sheets2").Range("B2").Value = wbk.Sheets("Sheets2").Range("C3").Value wbk.Close Set wbk = Nothing Set awb = Nothing End Sub

---

Et maintenant ça glisse sans accro comme une voiture sur du verglas !!

Merci beaucoup !:ccool: