Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre régulier
    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

  2. #2
    Rédacteur/Modérateur

    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
    Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment.

    Ils comptent sur vous...
    Web Site@Mail
    Tutoriels : Déployez vos applications Access 2013 et 2016 */* Réalisez un Assistant de présaisie...
    MDB Viewer : Visionneuse Access v4.0
    *** Je recherche des profils (2 ans min.) Java EE, Fullstack, Front, .Net, Mobile... pour CDI ***

  3. #3
    Membre régulier
    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.

  4. #4
    Rédacteur/Modérateur

    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 :Sélectionner tout -Visualiser dans une fenêtre à part
    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 :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    SELECT tblChr13.Champ1, tblChr13.Champ2, RemoveVBCrlf([Champ2]) AS NewChamp2
    FROM tblChr13;


    Argy
    Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment.

    Ils comptent sur vous...
    Web Site@Mail
    Tutoriels : Déployez vos applications Access 2013 et 2016 */* Réalisez un Assistant de présaisie...
    MDB Viewer : Visionneuse Access v4.0
    *** Je recherche des profils (2 ans min.) Java EE, Fullstack, Front, .Net, Mobile... pour CDI ***

  5. #5
    Membre régulier
    Super,
    Merci infiniment c'est exactement ce qu'il fallait;


###raw>template_hook.ano_emploi###