Set FSO= CreateObject("Scripting.FileSystemObject")
Set D1 = FSO.GetFolder("C:\mondossier1\")
Set D2 = FSO.GetFolder("C:\mondossier2\")
For Each File In D1.Files
FSO.CopyFile file.fullname, D2.path
next
with createobject("excel.application")
.visible=true
.workbooks.open("chemin du fichier que tu veux ouvrir" )
end with