Discussion :

[zapan57]

Bonjour,

Je dois réaliser une base de données qui mets à jour son contenu en fonction de fichiers excels sur le réseau. Il y à plus de 2000 lignes.Les données sont répartis sur une feuille avec plusieurs colonne.

Cette partie est réalisé mais présente une erreur décrite ici.

Le problème actuel est après l'import de données dans Access depuis Excel les retours chariot et les sauts de lignes sont symbolisés par des [] présent notamment dans des adresses.

Je pensais exploité le programme donnés par l'aide microsoft :
http://support.microsoft.com/default.aspx?scid=kb%3Bfr%3B210372


Elle fonctionne dans le mode requête mais impossible de la lancer en VBA SQL Cela me sort erreur 3144J'ai ensuite essayer par la méthode current.db mais la aussi sa me met erreur 3219.

Je pense aussi abandonner cette idée car lors du premier appel du code ---> pas de souci, mais lors d'un second appel le contenu de ma colonne est vide.
aurais je commis une erreur ??

Je pensais plutôt utiliser

Code :

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

 replace([adresse], chr(10)&chr(13)," ")

mais je ne vois pas comment appliquer ceci à une requête qui parcourra la colonne de ma table et remplacera quand il faut.

Code :

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

1
2
3
SQL11 = " UPDATE T_Importation_PPV_Alsace_Lorraine SET T_Importation_PPV_Alsace_Lorraine.Adresse = ChangeStr([Adresse],Chr$(10),Chr$(13) & Chr$(10),0)"
DoCmd.RunSQL SQL11
'CurrentDb.QueryDefs("Requête2").SQL = SQL

[marot_r]

mais je ne vois pas comment appliquer ceci à une requête qui parcourra la colonne de ma table et remplacera quand il faut.

Code :

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

1
2
3
SQL11 = " UPDATE T_Importation_PPV_Alsace_Lorraine SET T_Importation_PPV_Alsace_Lorraine.Adresse = ChangeStr([Adresse],Chr$(10),Chr$(13) & Chr$(10),0)"
DoCmd.RunSQL SQL11
'CurrentDb.QueryDefs("Requête2").SQL = SQL

Je ne saisi pas bien ton problème car la dernière requête semble correspondre à ce que tu veux faire. Autant que je la compreine bien, elle met à jour tous les enregistrements de la table en remplaçant les Chr(10) par des Chr(13) & Chr(10).

A+