Soit ton fichier est endomagé, soit ton fichier lance une macro à l'ouverture qui fait planter. Il faut donc l'ouvrir en bloquant les macros
Essaie de l'ouvrir en ouvrant un nouveau classeur et lançant cette macro.
sub toto()
Application.EnableEvents = False
Workbooks.Open "C:\Temp\toto.xlsm"
Application.EnableEvents = True
end sub