Discussion :

[Taiby]

Bonjour,

j'ai créé une base de données qui importe des données deouis un fichier Excel. Parfois il y dans un champ texte un caractère spéciale qui correspond aux deux nombres héxadécimales 0x0D et 0x0A (équivalent à CR LF surement).
Je voudrais supprimer ces deux caractères lorsque j'importe les données en faisant un

champ_DESIGNATION = Replace(RS.Fields(1), 0x0A, vbNullString)

mais cela ne marche pas dans l'état, quelqu'un peut m'aider sur la synthaxe ?

Merci

[Jean-Philippe André]

Hello,

comme ce sont des valeurs en Hexa, deux solutions se détachent :
- passer par le code Hexa avec &H (voir exemple http://www.developpez.net/forums/d73...nnees-hexa-vb/)
- récupérer directement la valeur en système décimal voire même les constantes VB (VbCrLf et co.)

[Orion34080]

Bonjour
Ca marcherait pas ce

Code :

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

Champ_Designation = Replace(RS.Fields(1), vbCr, vbNullString)

Michel

[Taiby]

J'ai essayé la totale, rien n'y fait !

champ_DESIGNATION = Replace(RS.Fields(1), &HD, vbNullString)
champ_DESIGNATION = Replace(RS.Fields(1), &HA, vbNullString)
champ_DESIGNATION = Replace(RS.Fields(1), vbCrLf, vbNullString)
champ_DESIGNATION = Replace(RS.Fields(1), vbLf, vbNullString)
champ_DESIGNATION = Replace(RS.Fields(1), vbCr, vbNullString)
champ_DESIGNATION = Replace(RS.Fields(1), vbNewLine, vbNullString)

[Taiby]

Autant pour moi, le caractère suivant fonctionne :

champ_DESIGNATION = Replace(RS.Fields(1), vbLf, vbNullString)

Merci du coup de pouce