Discussion :

[Renardo]

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

[loufab]

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,

[Renardo]

Merci Loufab
En effet il faut aussi ajouter le replace()
merci encore pour ton aide