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
    Profil pro
    Inscrit en
    mars 2003
    Messages
    110
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mars 2003
    Messages : 110
    Points : 107
    Points
    107
    Par défaut 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
    Avatar de argyronet
    Homme Profil pro
    Panseur de bobos en solutions ETL
    Inscrit en
    mai 2004
    Messages
    4 968
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Panseur de bobos en solutions ETL
    Secteur : Finance

    Informations forums :
    Inscription : mai 2004
    Messages : 4 968
    Points : 11 590
    Points
    11 590
    Billets dans le blog
    5
    Par défaut
    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
    Profil pro
    Inscrit en
    mars 2003
    Messages
    110
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mars 2003
    Messages : 110
    Points : 107
    Points
    107
    Par défaut
    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
    Avatar de argyronet
    Homme Profil pro
    Panseur de bobos en solutions ETL
    Inscrit en
    mai 2004
    Messages
    4 968
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Panseur de bobos en solutions ETL
    Secteur : Finance

    Informations forums :
    Inscription : mai 2004
    Messages : 4 968
    Points : 11 590
    Points
    11 590
    Billets dans le blog
    5
    Par défaut
    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
    Profil pro
    Inscrit en
    mars 2003
    Messages
    110
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mars 2003
    Messages : 110
    Points : 107
    Points
    107
    Par défaut
    Super,
    Merci infiniment c'est exactement ce qu'il fallait;


+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. probleme d'affichage apres copier coller
    Par qtipse dans le forum IHM
    Réponses: 0
    Dernier message: 02/12/2007, 17h28
  2. Copier coller Excel
    Par wardavb dans le forum WinDev
    Réponses: 3
    Dernier message: 19/10/2007, 16h43
  3. Probleme de copier-coller EXCEL
    Par a.dequidt dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 10/09/2007, 16h10
  4. Copier/Coller Excel
    Par tiftay01 dans le forum Excel
    Réponses: 15
    Dernier message: 10/03/2006, 20h00
  5. Problème champ après import d'excel vers access
    Par David M dans le forum Access
    Réponses: 6
    Dernier message: 16/10/2005, 12h53

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo