VBA copy files

[sna]

Hi
Dear

I need your help with copy and paste from folder.I test code is ok but if I copy this file is not working.

I attached working fine and source file


Best Regards,

[snasui]

Could you please capture the error and attach here?

[sna]

Hi Dear,
It doesn't show any error but it doesn't copy the desired output.
I don't know why .I step through the code but nothing occur.
What's wrong with?

Best Regards,

[snasui]

Change MyFile = Path & "*.xls*" to MyFile = Dir(Path & "*.xls*") and if you want to loop other file in this path, add MyFile = Dir() after Application.DisplayAlerts = True statement.

[sna]

Thank you

[sna]

I try as suggested but no luck.
It has problem copy and paste .it open file but not copy n paste

[sna]

It sometimes can't open file.what is wrong?
excel file is always extension .xlsx

[snasui]

excel file is always extension .xlsx

It should be '.xlsm'.