This is the complete script:
Private Sub Command95_Click()
DoCmd.SetWarnings False
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Performance_report_HW_1_DE", CurrentProject.Path & "\Performance report HW-DE.xls", False, A3
DoCmd.TransferSpreadsheet acExport...