Import CSV qui marche en manuel mais pas automatique ni en VBA depuis Excel

Version imprimable

01/02/2017, 09h44
Lameth

1 pièce(s) jointe(s)

Import CSV qui marche en manuel mais pas automatique ni en VBA depuis Excel

Salut,

J'ai un fichier CSV de la sorte:

Citation:

URN,Balance,Start date,Charge off date,Customer Date of Birth,State,Telephone number,Email address,Last payment date,Last payment value,Payment frequency,Payment plan?,Single / Joint accounts
1,"$61,737.00",9/28/2003,5/5/2015,2/28/1975,DE,1,1,12/27/2015,"$3,366.00",Monthly,No,Single

On note le format de date américaine, pas de souci. On note le séparateur de colonne qui est une virgule. Le problème c’est que c’est aussi le séparateur de millier. Sauf que les nombres sont encadrés de doubles quottes : "

Donc en important manuellement :
- Ribbon External Data
- Text File, j’ajoute à une table en particulier
- Je remplis tout bien comme il faut (cf screenshot), en insistant bien sur le « text qualifier » de bien mettre les double quote, et en ignorant les 2 champs qu’il pourrait penser créer comme il y a 2 virgules de plus que de colonnes (2 champs numériques), j’oubie pas non plus le format de date.

Pièce jointe 240325

- Dans l’écran suivant je précise bien que le nom des champs (qui matchent exactement la base) sont en première ligne et ça marche nickel, pas de souci.

L’automation du process, je cale… L’erreur commence assez tot dans le process :

1 / Si je sauve la spécification de l’import (cf screenshot au dessus), et que je reviens faire un import. Je charge la spécification, je sélectionne ensuite que le nom des champs est en première ligne, il me dit alors que la spécification a changé (autrement dit je suppose à cause de la précision des champs en première ligne, option non disponible quand on crée la spécification par ailleurs), si je l’enregistre ou pas, ça marche aussi… La première fois !

2/ En effet, dans le cas où je l’ai enregistrée, si je viens refaire un import, je charge la spécification, cela ne marche plus et mes deux champs numériques ne sont pas importés (ceux qui ont une virgule).

Dans mon import de VBA (depuis Excel), que j’ai la spécification avec ou sans le critère de la première ligne contenant les champs, idem, mes deux champs numériques ne sont pas importés…

Code:

objAccess.DoCmd.TransferText acImportDelim, "Pricing Import Specification", Tab1, PathCSV1 & FileCSV1, True

En gros, ca marche en manuel mais pas en automatique !

Grrr....

Une idée du pb?

Merci!
01/02/2017, 12h33
User

Bonjour,

Avez-vous essayé de mettre le point (.) comme symbole décimal dans la spécification d'importation.

Le problème rencontré pas Access est que la virgule est également le symbole décimal.

Sinon regarder dans la table système "MSysIMEXSpecs", pour voir l'enregistrement correspondant à votre spécification d'importation (table système MSysIMEXSpecs) et ses paramètres.

Cdlt,
01/02/2017, 16h54
tee_grandbois

Bonsoir,
il faudrait préciser si les champs de la table de destination est de type numérique car, je ne crois pas qu'il soit possible d'importer directement dans un champ numérique une donnée formatée ainsi :

Citation:

"$61,737.00"

C'est seulement possible avec les dates et dans ce cas il faut quand même préciser le format, le séparateur et si l'année est sur 4 chiffres.
Pour ce type de données, il faudrait d'abord importer dans un champ texte et ensuite le convertir au format monétaire.
01/02/2017, 18h31
User

En fait, tout dépend des paramètres régionaux, si la langue est définie en anglais (US) dans les paramètres régionaux et le format monétaire est le format US, alors ça fonctionne.

Je l'ai testé et ça fonctionne en VBA aussi bien pour les champs monétaires que pour les dates, dans le cas contraire c'est problématique...

Cdlt,

PS : il faut aussi opter pour le délimiteur de texte "".
01/02/2017, 20h08
tee_grandbois

Bizarre... j'ai testé en remplaçant le $ par l'€, en enlevant le séparateur de milliers, en spécifiant le séparateur de décimales le '.' et en utilisant un paramètre d'importation comme indiqué : j'ai eu une erreur d'importation sur les 2 champs. Serait-ce à cause des délimiteurs de texte dans un champ numérique ? :?
01/02/2017, 20h40
User

1 pièce(s) jointe(s)

Salut tee_grandbois,

Le mieux c'est que je retrouve ma base et que je la poste.

Je précise bien que j'ai changé dans les paramètres régionaux la langue en anglais(us) et le format monétaire dollar us.

Edit:
Ci-joint la base à tester avec un formulaire pour exécuter le code VBA.

à+
01/02/2017, 20h46
tee_grandbois

Rectification, je viens de réessayer et cela a fonctionné. C'était à cause du séparateur de décimales de mes paramètres d'importation qui était resté avec la virgule.
Par contre, pour répondre à Lameth à propos de ceci

Citation:

Je charge la spécification, je sélectionne ensuite que le nom des champs est en première ligne, il me dit alors que la spécification a changé (autrement dit je suppose à cause de la précision des champs en première ligne, option non disponible quand on crée la spécification par ailleurs)

pour avoir l'indication des champs en première ligne, il faut l'indiquer sur l'écran ci-dessous avant de l'enregistrer par le biais du bouton en bas à gauche :

:Pièce jointe 240621
01/02/2017, 20h54
User

Citation:

Envoyé par tee_grandbois

Rectification, je viens de réessayer et cela a fonctionné. C'était à cause du séparateur de décimales de mes paramètres d'importation qui était resté avec la virgule.
Par contre, pour répondre à Lameth à propos de ceci
pour avoir l'indication des champs en première ligne, il faut l'indiquer sur l'écran ci-dessous avant de l'enregistrer par le biais du bouton en bas à gauche :

:Pièce jointe 240621

Oui c'est ça, j'avais paramétré le symbole de décimal en point et le délimiteur de texte en "". et on spécifie bien aussi les champs de type date et les champs de type monétaire dans la table destination.