1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
DoCmd.SetWarnings True
DoCmd.OpenQuery "Suppr_Parc_GSM", acNormal, acEdit
DoCmd.TransferText acImportDelim, "Parc_comptage", "Parc_Comptage_GSM", "E:\MES DOCUMENTS\Extrac SAR\Parc_GSM.csv", False, ""
DoCmd.OpenQuery "Suppr_parc_RTCGSM", acNormal, acEdit
DoCmd.TransferText acImportDelim, "Parc_comptage", "Parc_Comptage_RTCGSM", "E:\MES DOCUMENTS\Extrac SAR\Parc_RTC-GSM.csv", False, ""
DoCmd.OpenQuery "Suppr_Parc_RTC", acNormal, acEdit
DoCmd.TransferText acImportDelim, "Parc_comptage", "Parc_Comptage_RTC", "E:\MES DOCUMENTS\Extrac SAR\Parc_RTC.csv", False, ""
DoCmd.OpenQuery "Suppr_suivi_initial", acNormal, acEdit
DoCmd.TransferText acImportDelim, "SUIVI Spécification d'importation", "SUIVI_initial", "E:\MES DOCUMENTS\Extrac SAR\SUIVI.csv", False, ""
Call suppression_ligne_inutile("Parc_comptage_GSM")
Call suppression_ligne_inutile("Parc_comptage_RTC")
Call suppression_ligne_inutile("Parc_comptage_RTCGSM")
Call suppression_ligne_SUIVI
DoCmd.OpenQuery "Suppr_Suivi + Parc", acNormal, acEdit
DoCmd.OpenQuery "Ajout_SUIVI + Parc", acNormal, acEdit |
Partager