Workbooks et Worsheets

Workbooks et Worsheets - VB/VBA/VBS - Programmation

Marsh Posté le 17-10-2012 à 09:53:43    

Hello,
 
Une question toute simple, enfin j'espère...
 
J'ai deux fichiers, "test1" et "test2", je voudrais écrire 5 dans la cellule 2,2 de la feuille 2 du fichier "test2.xlsx" et 2 dans la cellule 1,1 de la feuille 1 du fichier "test1.xlsx"
en s'inspirant de ça comment faire ?
 

Code :
  1. Sub test()
  3. Workbooks("test2.xlsx" ).Worsheets("Feuil2" ).Cells(2, 2) = 5
  4. Workbooks("test1.xlsx" ).Worsheets("Feuil1" ).Cells(1, 1) = 2
  6. End Sub

Reply

Marsh Posté le 17-10-2012 à 09:53:43   

Reply

Marsh Posté le 17-10-2012 à 10:10:03    

j'ai trouvé tout seul comme un grand !
 

Code :
  1. Sub test()
  4. Dim Wb1 As Workbook
  5. Dim Ws1 As Worksheet
  6. Dim Wb2 As Workbook
  7. Dim Ws2 As Worksheet
  9. Set Wb1 = Workbooks("test1.xlsx" )
  10. Set Ws1 = Wb1.Sheets("Feuil1" )
  11. Set Wb2 = Workbooks("test2.xlsx" )
  12. Set Ws2 = Wb2.Sheets("Feuil2" )
  14. Ws1.Cells(1, 1) = 2
  15. Ws2.Cells(2, 2) = 5
  18. End Sub


 
c'est cool je vais pouvoir travailler sur 2 fichiers à la foix

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed