Discussion :

[Didier71]

Bonjour à tous

J'importe des fichiers texte au format fixe , dans une table Access avec des nombres avec le séparateur décimal . (point)
Sur mon PC de bureau, tout est verrouillé, je ne peux pas changer les paramètres régionaux..
Du coup, dans ma table je me retrouve avec des nombre avec séparateur décimal virgule..
Je suppose que c'est Access qui convertit, en fonction desdits paramètres régionaux. Ce n'est pas un problème en soit, mais, car il y a un mais :
Après traitement, je réexporte des tables, en fichiers texte au format fixe, contenant les même nombres, et au passage je faisais un format(MonChamp, "0.000") pour avoir un séparateur point.
Ca marchait nickel sur mon ancienne base Access. (elle fonctionnait sur un serveur qui avait sans doute l'option séparateur décimal point.)
Précision ; le logiciel "professionnel" dans lequel je réimporte ces fichiers ne connait que le séparateur décimal . (point). Aucune option pour modifier quoi que ce soit.

- J'ai bien essayé un "replace", mais ça ne marche que sur les champs texte. Soit, je convertis par un Str() le champ numérique et le replace fonctionne, mais dans mon fichier de sortie, au format fixe, les champs numériques désormais texte, sont désalignés !

- J'ai essayé un format de champs spécifique dans la table, mais ça donne n'importe quoi exemple 47,25 ne donne pas 47.25 , mais 0.00145 (fictif)

- La seule solution pour l'instant que j'ai trouvée, est de remplacer la virgule, par le point, dans Notepad, par exemple... C'est bof bof !

Auriez-vous une solution élégante pour faire ça en VBA, sans avoir à changer quoique ce soit dans les paramètres régionaux ?


Merci pour votre aide
Cordialement
Didier

[Chrispi]

Bonsoir Didier71,

Tu n'es pas obligé de passer d'emblée en VBA.
Tu peux créer une requête mise à jour en sql :

Code :

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

1
2
UPDATE Table1 SET Table1.Champ1 = Replace([Champ1],",",".")
WHERE (((Table1.Champ1) Like "*,*"));

Ensuite tu peux lancer en VBA la requête par exemple avec un bouton sur ton formulaire :

Code :

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

1
2
3
Private Sub Bouton1_Click()
  CurrentDb.Execute "TaRequête", dbFailOnError
End Sub

Si tu veux vraiment faire d'emblée en VBA, voilà :

Code :

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

1
2
3
4
5
Private Sub Bouton1_Click()
Dim SQL As String
  SQL = "UPDATE Table1 SET Champ1 = REPLACE(Champ1, ',', '.')"
  DoCmd.RunSQL SQL
End Sub

Tu aurais pu voir aussi ceci dans le forum :
https://www.developpez.net/forums/d2...-table-access/

Espérant avoir pu t'aider.
Bonne soirée.

[Didier71]

Bonsoir Chrispi

Merci pour toutes ces pistes, mais aucune ne fonctionne, que ce soit la requête mise à jour ou le VBA.
Je crois que l'on ne peut pas utiliser la fonction replace() sur des champs numériques.
Je vais explorer d'autres pistes,

-Celle de la conversion en chaine de caractères, avant d'utiliser le replace(), mais je dois résoudre le problème d'alignement dans mon fichier de sortie
-Je pense aussi à ouvrir le fichier texte crée et remplacer la virgule par le point.

Bonne soirée

[Chrispi]

Bonsoir Didier71,

As-tu la possibilité de mettre dans Access en mode création la colonne incriminée au format Texte court et dans les propriétés de la colonne mettre Aligner le texte à droite ?
Tu peux peut-être essayer de faire ça avant l'import des données. Là pas besoin de requête.

Bonne soirée.

[loufab]

Bonjour,

Si la décimale dans les paramètres est la virgule, alors toute valeur avec un point ne peut plus être considérée comme du numérique mais comme du texte.

Les requêtes Update et autre Replace n'y changeront rien.

La solution est de modifier le séparateur au moment de l'import en utilisant les spécifications d'import puis faire la même chose à l'export dans le sens contraire.

Tout simplement.

Cordialement,

[Didier71]

Bonsoir

Pour répondre à Chrispi,

Oui, j'ai cette possibilité, mais le problème c'est qu'avant d'exporter les tables en fichier texte, je fais des calculs, sur les champs numérique.
Dans ta solution ils ne le seront plus, il faudrait alors que je les reconvertisse !

Pour répondre à Loufab,

Solutions intéressante, d'autant plus que j'ai effectivement des spécifications d'importation, et d'exportation.
Je viens de vérifier, dans un premier temps la spécification d'importation : le séparateur décimal est bien . (point)
Faudrait-il que je mette , (virgule), pour avoir l'effet inverse et que dans la table ce soit des points ?
Il faut que je teste demain, je n'ai pas les fichiers à importer sous la main.

En tout cas, merci pour toutes vos propositions....
Je vais finir par aboutir

Bonne soirée
Didier71

[deedolith]

Oui, j'ai cette possibilité, mais le problème c'est qu'avant d'exporter les tables en fichier texte, je fais des calculs, sur les champs numérique.
Dans ta solution ils ne le seront plus, il faudrait alors que je les reconvertisse !

Hello,

Tu peux mettre les résultat de tes calculs dans une table temporaire, exporter cette dernière via les specs, et la supprimer quand tu n'en as plus besoin.

[loufab]

Hello,

Tu peux mettre les résultat de tes calculs dans une table temporaire, exporter cette dernière via les specs, et la supprimer quand tu n'en as plus besoin.

Ce n'est pas plus simple d'importer tout avec les spéc dès le début ?

[deedolith]

Ce n'est pas plus simple d'importer tout avec les spéc dès le début ?

Encore faut-il connaître les tenants et aboutissants du projet (comment les données sont importées, manipulées, transformées ect ...).

[loufab]

Encore faut-il connaître les tenants et aboutissants du projet (comment les données sont importées, manipulées, transformées ect ...).

Si on lit attentivement la demande c'est tout à fait clair.

[Didier71]

Bonjour à tous

Grâce à toutes vos remarques et vos pistes, j'ai un peu creusé t j'ai trouvé ce qui clochait
La spécif d'importation OK : le séparateur décimal est bien le . (point), comme dans le fichier d'origine.

Dans la spécif d'export, par contre, TOUS les champs étaient du type Texte Court, donc, même si j'avais le séparateur décimal . (point), le champ était exporté tel qu'il est dans la table d'origine.

J'ai fait un essai rapide sur une veille base que j'ai à la maison, en remplaçant les types de champs texte court par du Reel Simple, avec évidemment le séparateur décimal . (point) et ça fonctionne.

Par contre, l'alignement n'est pas terrible, c'est souvent décalé, mais il semble que ça "reste" dans la zone prévue pour ce champ (format fixe !)

J'ai également quelques notations scientifiques du genre : 5.0e-03 également
Des nombres comme ceux-ci : 01849.60 avec un zéro non significatif

Du coup, est-ce que le format Reel Simple est adapté ?

Ou bien est ce que ça vient de ma requête SQL qui prépare les données au format fixe ?
j'ai pour les nombres un Format(MyChamp,'0.000'), je me demande si c'est correct ?

Y a t-il des options de cadrage à droite par exemple que j'ignore ?

Encore merci pour vos différentes aides, j'ai pu avancer...

Cordialement

Didier71

[loufab]

Bonjour,

N'ayant pas le fichier c'est difficile d'émettre un avis tranché.

Le décalage : Soit tu visualise le résultat avec une police proportionnelle. Dans le cas contraire utilise une police à pas fixe (courrier, courrier new, fixed...) Notepad++ est un bon outil pour éditer des fichiers csv.
Soit tu as des espaces dans tes données, dans ce cas un Trim(nomDeColonne) devrait te les supprimer.

La notation scientifique : Dans ta requête d'alimentation du CSV export, essaye de faire une conversion avec Format() : Format(macolonne;"standard").

Les zéros non significatif : ta colonne est considérée comme du texte. Regarde si dans les 20 premières lignes tu n'as pas une valeur vide au lieu de 0.

Réel simple/Double : tout dépend de tes données (cf limitation Access, les types de données)

Cadrage à droite/gauche : droit pour le numérique, gauche pour le texte. Si tu veux cadrer différemment, c'est que tu veux exporter tout en texte. A noter que pour l'export tu aura forcément du texte, tu peux utiliser alors toutes les fonctions Texte VBA dans ta requête pour mettre ton csv à ta sauce.

Cordialement,

[Didier71]

Bonsoir Loufab


J'ai résolu le problème, en fait, dans ma requêtes SQL je fais d'abord un Format(), comme tu me l'as conseillé, puis, je convertis la chaine en texte par Cstr(), et ensuite je fais un replace() pour changer la , (virgule), par le . (point)
La requête s'exécute très bien..
J'ai remis tous les champs de la spécifs export en texte court, pour pouvoir exporter en format fixe, et là j'ai un nouveau souci, l'erreur 3011 (qui je pense n'a rien à voir avec l'exportation.)
Encore que...

Access ne crée pas le fichier TXT de sortie avec la commande TransfertText....., car Access ne trouve pas le fichier !
C'est une base sur le réseau d'entreprise, et j'ai ajouté une fonction qui va récupérer un paramètre contenant le chemin ou créer le fichier.
C'est cette fonction qui ne s'éxécute pas....
Pourtant, quand je fais un Debug.print la fonction retourne bien le chemin !

L'erreur 3011 ça concerne une base corrompue, à réparer, je ne vois pas le rapport avec mon problème ?

Pour l'instant, j'en suis la, mais je ne peux guère aller plus loin pour l'instant, par manque de temps....

Si tu as une "idée", je suis preneur, et je mettrai la discussion "résolue", quand j'aurai pu aller au bout !

Merci et bonne soirée
Didier71

[hyperion13]

Salut
Je suis le fil depuis son début et un truc m'interpelle.
Si j'ai bien compris le postulat
- vous tournez sur un Windows fr-fr et le séparateur de décimal est la virgule (param régionaux).
- vous importez (manuellement ou vba ?) un fichier *.txt dans un format fixe, dont l'origine est un progiciel tiers avec pour séparateur de décimal est le point vers une tbl Acc.
Donc normalement l'importation devrait s'exécuter sans problème.
Access va déterminer (détecter) automatiquement le type de données (txt court, numérique, D/H, ...) automatiquement pour chacun des champs (colonnes) de votre fichier. Et les nombres décimaux auront tous la virgule comme séparateur de décimal.
Attention aux données dans le fichier *.txt au format %. Parfois Access affecte le type D/H
Ainsi importées, vous pourrez effectuer vos calculs puis exporter le résultat de votre qry au format *.txt. Et là par contre, vous devrez créer une spécification pour indiquer que le séparateur de décimal est un point.
Je ne vois pas pourquoi vous utilisez des fct de conversion.

[Didier71]

Bonjour Hyperion13

Pour ce qui est de la partie Import : c'est correct, je n'ai pas de problèmes.
J'importe les fichiers en VBA, et en effet, j'ai des virgules pour les décimaux, mais pas de soucis , pour mes calculs etc...
Je n'ai pas de champs autres que textes et numériques...

Mon souci c'était la partie Export.
A l'origine, j'avais crée une spécif export avec des champs texte courts uniquement. Je l'avais gardée, c'est pour ça que j'utilisais des fonctions de conversion.

Du coup, je vais changer ma spécification d'export et passer les champs numériques en Reel simple, avec le point comme séparateur décimal, sans utiliser les fonctions de conversion.
Je teste et reviens pour dire si ça marche et mettre résolu....

Merci pour tous ces conseils

Cordialement

DIdier71

[hyperion13]

re,
vous n'avez pas à modifier la structure de la tbl (type de données et format de données).
la spécification pour l'export doit suffire.

[tee_grandbois]

bonsoir,

Du coup, je vais changer ma spécification d'export et passer les champs numériques en Reel simple

si tu as des montants avec au plus 4 décimales, je te conseille le type monétaire (pas le format) car le réel simple a tendance à transformer certains montants en nombre avec exposant (comme tu l'as constaté, par ailleurs)

[Didier71]

Bonsoir à tous

Tout d'abord meilleurs voeux pour cette nouvelle année
Me revoila après plusieurs jours d'absence, mais je dois dire que je n'ai pas progressé !
J'ai mis en application tous les conseils, en particulier le dernier, en modifiant ma spécifications d'export comme ceci :

Et ça ne fonctionne pas du tout !

J'ai toujours les virgules dans mon fichier texte de sortie
J'ai formaté directement dans la table les champs numériques comme ceci



J'ai oublié le format monétaire suggéré, car il me colle des symboles € dans le fichier de sortie, ce que je ne veux pas

J'ai également supprimé de ma requête SQL tous les formats que j'avais définis par Format(Champ, '0,000').
Le résultat est le même, que je fasse l'exportation à partir de la table ou de la requête.

Je ne sais plus quoi faire

Une dernière suggestion ?

Merci d'avance

Cordialement
Didier71

[tee_grandbois]

bonsoir,

J'ai oublié le format monétaire suggéré, car il me colle des symboles € dans le fichier de sortie, ce que je ne veux pas

j'aurais du être plus précis, désolé

si tu as des montants avec au plus 4 décimales, je te conseille le type monétaire

j'aurai dû dire: "je te conseille le type Monétaire comme taille du champ"
Tu dois donc créer ton champ avec les propriétés suivantes:
Taille du champ: Monétaire
Format: Standard, Fixe mais surtout pas monétaire
Décimales: 2 (ou ce que tu veux de 0 à 4)

[tee_grandbois]

J'ai toujours les virgules dans mon fichier texte de sortie
J'ai formaté directement dans la table les champs numériques comme ceci
J'ai également supprimé de ma requête SQL tous les formats que j'avais définis par Format(Champ, '0,000').

si le séparateur de décimales Access ne concorde pas avec le fichier à exporter, il faut au contraire le formater avec le séparateur désiré dans la requête et le traiter comme du texte à l'export.
Mais comme il y a plusieurs solutions il faut faire attention: soit le champ est du texte et on formate le champ avec le séparateur désiré, soit on reste en numérique et on indique le séparateur de décimales dans les spécifications d'export (mais là, je ne suis plus très sûr: il y a longtemps que je n'en ai pas fait), il ne faut pas utiliser les 2 solutions à la fois sous peine de ne pas t'en sortir