Discussion :

[Schniko]

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 :

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

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

[mercatog]

Bonjour,
à mettre dans book1

Code :

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

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

[Schniko]

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

Merci beaucoup !