Discussion :

[Viggen0020]

Bonjour à tous,

avec XP et access2007,

je dispose d'une table issue d'une système sur lequel je n'ai pas la main.

Cette table liste les utilisateurs et toutes les informations qui leur sont liés (nom, prénom, adresse, poste, etc).

Le système qui me fournit le fichier csv fait l'impasse sur les caractères spécifiques à la langue française, ou presque (é, è, à, ö, etc.) et les remplace par quelque chose de plus barbare (é, â, ú, etc.).

J'ai monté une table d'équivalence entre les caractères.

Je voudrais maintenant savoir comment remplacer les caractères qui ne vont pas par ceux qui vont bien (par ma table d'équivalence?).

La fonction "Remplacer" semble bien s'y préter, mais je crois que je vais devoir l'utiliser pour chaque champ (une 40aine) et pour chaque caractère connu en erreur (une 20aine) ... je ne fais même pas le calcul !

Y aurait-il une solution pour faire tourner la fonction remplacer sur tous les champs et tous les enregistrements de ma table, et pour tous les caractères connus en erreur ? (en une fois ...)

Merci de votre aide!

G.

[nico84]

Tu peux t'inspirer de http://www.developpez.net/forums/d78...contenant-avg/

Dans ton cas la public function doit convertir une chaine de caractères mais c'est le même principe

Autre solution : convertir le fichier CSV caractère par caractère avant de l'importer dans access (ça sera probablement beaucoup plus rapide)

[Viggen0020]

La vie est dure parfois ...

Leving dit qu'elle débute, mais elle est loin devant moi.
En bref mon niveau ne me permet pas de comprendre/ suivre votre échange (je ne suis qu'un sous-padawan).

Mais j'ai quand même déchiffré que ca sent l'usine à gaz ...

Je vais donc suivre ton conseil et le faire dans excel, ou la macro est peaufinée et parfaitement fonctionnelle.

Merci quand même de l'attention

(et si tu souhaites quand me faire suivre le SQL, je serais ravi de l'essayer lol)

Bonne fin d'après midi !

G.

[nico84]

En 2 mots il faut au minimum que tu saches créer une fonction publique :

Code :

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

1
2
3
4
5
Public Function convertit(s as string)
s=replace(s,"@*","é")
s=replace(s,"avant","après")
... (autant de lignes que de cas identifiés)
End Function

(il est possible d'améliorer ce code par un traitement caractère par caractère mais c'est plus compliqué)
Ensuite il faut créer une requête :

Code :

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

update MaTable set champ1=convertit(champ1), champ2=convertit(champ2)...

Cette requête risque d'être longue d'où ma 2e suggestion mais si c'est pas souvent...

[Viggen0020]

J'ai cherché l'origine de mon problème puis uine solution à la cause.

Et c'est réglé:
Discussion: "Importation d'un fichier CSV dans Office "

G.