Au plus simple
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Table ou requete", "nom fichier avec son extension", True
OU (avec l'avantage d'ouvrir le fichier exporté)
DoCmd.OutputTo acOutputQuery, "requete", ".xlsx", , True