1 2 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é" |