Discussion :

[cofamarc]

je désire reproduire l'information de ma cellule format date de mon premier fichier sur 2 autres fichiers en simultané et savoir comment copier cette fonction rapidement sur les cellules avoisinante, merci à vous M....

[sabzzz]

bonjour cofamarc,

Code :

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

1
2
3
4
5
6
Dim wks1 As Workbook, wks2 As Workbook, wks3 As Workbook
Set wks1 = Workbooks("test1.xls")
Set wks2 = Workbooks("test2.xls")
Set wks3 = Workbooks("test3.xls")
wks1.Sheets("Feuil1").Range("A1").Copy wks2.Sheets("Feuil1").Range("A1")
wks1.Sheets("Feuil1").Range("A1").Copy wks3.Sheets("Feuil1").Range("A1")