IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

IHM Discussion :

Import excel refuse import avec guillemet


Sujet :

IHM

  1. #1
    Membre Expert Avatar de Renardo
    Profil pro
    Inscrit en
    Avril 2006
    Messages
    1 648
    Détails du profil
    Informations personnelles :
    Âge : 61
    Localisation : France

    Informations forums :
    Inscription : Avril 2006
    Messages : 1 648
    Par défaut Import excel refuse import avec guillemet
    Bonjour
    lors d'un import excel si dans le texte importé il y a des guillemets j'ai cette erreur qui se declenche
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Erreur de syntaxe (operateur absent)dans l'expression"'2,rue des sapin"la jarry"".

    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
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    Private Sub Commande14_Click()
    Dim oApp As Excel.Application
    Dim oWkb As Excel.Workbook
    Dim oWSht As Excel.Worksheet
     
    Set oApp = CreateObject("excel.application")
    Set oWkb = oApp.Workbooks.Open("c:\reunion prof\" & Me.Texte4)
    Set oWSht = oWkb.Worksheets("" & Me.Texte8)
    'premier ligne ou tu commence ton import
    i = 2
     
    'pour éviter les messages lors de l'ajout des enregistrements
    DoCmd.SetWarnings False
     
    'tant que la cellule n'est pas vide
    While oWSht.Range("a" & i).Value <> ""
     cSQL = "insert into [InserEleve] ( [2])values (" & Chr(34) & oWSht.Cells(i, 2) & Chr(34) & ")"
     DoCmd.RunSQL cSQL
     i = i + 1
     Wend
     Set rec = Nothing
    Set oWSht = Nothing
    Set oWkb = Nothing
    Set oApp = Nothing
    End Sub
    je cherche a resoudre se probleme de mon coté mais si quelqu'un a une idée pour resoudre se probleme elle est la bienvenue
    merci d'avance

  2. #2
    Rédacteur/Modérateur
    Avatar de loufab
    Homme Profil pro
    Entrepreneur en solutions informatiques viables et fonctionnelles.
    Inscrit en
    Avril 2005
    Messages
    12 120
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Entrepreneur en solutions informatiques viables et fonctionnelles.
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2005
    Messages : 12 120
    Par défaut
    bonjour,
    dans un premier temps je simplifierais comme ceci.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    cSQL = "insert into [InserEleve] ([2]) values (""" & oWSht.Cells(i, 2) & """)"
    et cela ne suffit pas je mettrais un coup de replace() pour transformer le " en ' sur le owsht.cell.

    Cordialement,
    Détecter les modifications formulaire Cloud storage et ACCESS
    Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
    Visitez mon Blog
    Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie

  3. #3
    Membre Expert Avatar de Renardo
    Profil pro
    Inscrit en
    Avril 2006
    Messages
    1 648
    Détails du profil
    Informations personnelles :
    Âge : 61
    Localisation : France

    Informations forums :
    Inscription : Avril 2006
    Messages : 1 648
    Par défaut
    Merci Loufab
    En effet il faut aussi ajouter le replace()
    merci encore pour ton aide

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 01/12/2014, 09h41
  2. [AC-2003] Import Excel vers Access avec choix du répertoire et du fichier *.xls
    Par jeanpierre78 dans le forum IHM
    Réponses: 12
    Dernier message: 19/10/2011, 12h14
  3. Réponses: 1
    Dernier message: 09/01/2011, 10h32
  4. import excel vers access avec bouton "parcourir"
    Par zeloutre dans le forum Access
    Réponses: 3
    Dernier message: 04/04/2007, 19h06
  5. Bug avec l'assistant d'importation: Excel--> Access
    Par Tatoine dans le forum Access
    Réponses: 4
    Dernier message: 30/06/2006, 10h07

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