Workbooks et Worsheets

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Workbooks et Worsheets

DavidUL

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 :

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

Publicité

DavidUL

j'ai trouvé tout seul comme un grand !

Code :

Sub test()
Dim Wb1 As Workbook
Dim Ws1 As Worksheet
Dim Wb2 As Workbook
Dim Ws2 As Worksheet
Set Wb1 = Workbooks("test1.xlsx" )
Set Ws1 = Wb1.Sheets("Feuil1" )
Set Wb2 = Workbooks("test2.xlsx" )
Set Ws2 = Wb2.Sheets("Feuil2" )
Ws1.Cells(1, 1) = 2
Ws2.Cells(2, 2) = 5
End Sub

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Workbooks et Worsheets

Sujets relatifs
[VBA] Problème avec Workbooks.Open	Bouton et différents workbooks
Copier / Coller entre workbooks
Plus de sujets relatifs à : Workbooks et Worsheets

Page générée en 0.028 secondes