| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 
 | Dim nom_fichier, stDocName As String
    If (ChoixSource = 1) Then 'EBay
        nom_fichier = getConfigValeur("NOM_CSV_ETIQUETTES_EBAY_KIALA")
        stDocName = "etat_ebay_kiala"
    Else 'OSC
        nom_fichier = getConfigValeur("NOM_CSV_ETIQUETTES_OSC_KIALA")
        stDocName = "etat_osc_kiala"
    End If
 
    nom_fichier = getConfigValeur("EMPLACEMENT_CSV") & "_" & fichierDate((nom_fichier))
 
    DoCmd.TransferText acExportDelim, "", stDocName, nom_fichier, True, ""
    MsgBox "Le fichier " & nom_fichier & " a été généré et contient vos étiquettes!", vbInformation + vbOKOnly, "CSV généré" | 
Partager