1 2 3 4 5 6 7 8 9 10
| Private Sub Commande0_Click()
DoCmd.DeleteObject acTable, "CPT_CLIENT_SEGMENTATION"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel03, "CPT_CLIENT_SEGMENTATION", "D:\Mes documents\GLOBAL\Satisfaction client\Baromètre\Analyse\Elements_construction\Referentiel_cpt_segm.xls", True, "DATA!"
DoCmd.DeleteObject acTable, "RETOURS"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel03, "RETOURS", "D:\Mes documents\GLOBAL\Satisfaction client\Baromètre\Analyse\Elements_retours\Barometre_Granulats_RETOURS.xls", True, "Questionnaire!"
End Sub |
Partager