access

Version imprimable

20/04/2006, 10h02
Sinclar

Caractères inconnus après Copier/coller excel>access

Bonjour,
Le problème est le suivant:
Après un copier/coller de x enreg d'une feuille excel vers une table, le caractère carré après dans les tables si la cellule excel contenait un ou + sieurs retours à la ligne;
Je souhaiterais créer une boucle pour rechercher tous ces carrés et les remplacer par un espace; j'ai essayé avec chr(13), chr(10) et plein d'autre mais rien à faire, il ne reconnait pas le caractère.

Si quelqu'un a une idée
Merci d'avance
20/04/2006, 10h55
argyronet

Bonjour,

Avant d'importer ou de Copier/Coller, il faut que tu remplaces ces caractère par un espace dans Excel d'abord...
Si tu as de vbCrlf dans ta feuille c'est que tu as (ou le dernier utilisateur a) mis des ALT+Entrée dans les cellules... ou quez ces données viennent d'ailleurs...

Argy
21/04/2006, 15h41
Sinclar

Merci de ta réponse,
Le pb est que les cellules sont déjà copiées et que cela représente +sieurs centaines de manips car les données provenaient de différents fichiers donc pas d'automatisation donc fait manuellement.

Je voudrais être sur qu'il n'y a pas d'autre solution dans access avant d'envisager de tout recommencer.

Il y a toujours des solutions, sinon, il n'y aurait pas de problèmes !!!

Tu peux employer par exemple cette fonction dans tes requêtes:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public Function RemoveVBCrlf(ByVal FieldContent As String) As String
Dim strTemp As String
  strTemp = FieldContent
  If InStr(1, FieldContent, vbLf) Then
    strTemp = Replace(FieldContent, vbLf, " ", 1, -1, vbBinaryCompare)
  End If
  If InStr(1, strTemp, vbCr) Then
    strTemp = Replace(strTemp, vbCr, " ", 1, -1, vbBinaryCompare)
  End If
  If InStr(1, strTemp, vbCrLf) Then
    strTemp = Replace(strTemp, vbCrLf, " ", 1, -1, vbBinaryCompare)
  End If
  RemoveVBCrlf = strTemp
End Function

Soit dans mon exemple:

Code:

1
2
SELECT tblChr13.Champ1, tblChr13.Champ2, RemoveVBCrlf([Champ2]) AS NewChamp2
FROM tblChr13;

Argy

21/04/2006, 17h59
Sinclar

Super,
Merci infiniment c'est exactement ce qu'il fallait;

:lol: :lol: :lol: