Private Sub Command0_Click()
strPath = "Chemin de mon fichier"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Data Arbitrage", strPath
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Data Arbitrage DBM&Printed Matter", strPath
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Data Arbitrage SGO", strPath
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Data Direct Entry", strPath
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Data Parcels", strPath
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Data Press", strPath
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Data Terminal Dues LP", strPath
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Data Terminal Dues SP", strPath
End Sub