informer

Pour résoudre le problème du format de la date et du séparateur de la partie décimale, une solution est:

• L'importation par requête SQL dans Access
• La création d'un fichier Schema.ini qu'il faut sauvegarder dans le même répertoire que celui du fichier à importer

Voir aussi post : CSV import via SQL et Schema.ini
Voir post : schema.ini (Microsoft OLE DB Provider for Microsoft Access database engine)



Il faut dans le Schema.ini

les deux commandes suivantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DecimalSymbol=.  --> Indique le type de séparateur de décimale
DateTimeFormat=MM/DD/YYYY --> Indique le format date des colonnes date

Et il faut ensuite déclarer le format des colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Col1="Id Table" Text
Col2=dateResa1 Date
Col3=PRIXLOG_IMMO Double

Et on obtient le fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
[test.csv] 
Format=Delimited(;)
ColNameHeader=True
CharacterSet=ANSI

DecimalSymbol=. 
DateTimeFormat=MM/DD/YYYY

; MaxScanRows=0 --> Facultatif si commence à la 1ère ligne

;—> Déclaration de toutes les colonne OBLIGATOIRE. 
;—> Déclaration partielle => erreur lors de l'appel du SQL dans Access
;—> Mettre entre double quote " " les champs composés de plusieurs mots avec des espaces entre  Ex: Id Table -  Voir post : Create a schema.ini File

Col1="Id Table" Text
Col2=dateResa1 Date
Col3=PRIXLOG_IMMO Double
Col4=MONTANT_CA_ESTIME Double

J'ai joint le CSV dans le zip avec

• Les date au format US (MM/DD/YYYY)
• Les décimaux avec séparateur de décimal format US (.) à déclarer comme double

Copie d'écran de la table Access après chargement avec la requête suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Dim strSQL As String
strSQL = "SELECT [Id Table], dateResa1, PRIXLOG_IMMO, MONTANT_CA_ESTIME" & _
         " INTO TEST" & _
         " FROM [Text;FMT=Delimited;HDR=YES;CharacterSet=ANSI;DATABASE=C:\test].[test.csv]"
 
CurrentDb.Execute strSQL

• Les dates sont bien au format FR (DD/MM/YYYY)
• Les décimales sont bien séparées par ","