Discussion :

[spud96]

Bonjour,

J'utilise depuis Excel une requête insertion de données texte dans une base ACCESS le code fonctionne sauf lorsque dans le texte à insérer il y a un apostrophe ' . Avez vous une idée voila le code que j'utilise. Les champs des colonnes O P sont du texte.

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
Sub MAJCOMMENTPROJETSANOMALIES()
Dim Db As DAO.Database
Dim strSQL As String
Dim derlign As Long, i As Long
 
'connexion à la base
Set Db = DAO.OpenDatabase("Q:\ECHANGE_FINANCE\données Projets\Suivideprojets.mdb", False, False)
 
'
For i = 8 To 1000
strSQL = "INSERT INTO PROJETSDANGERS VALUES ('" & Range("B" & i) & "', '" & Range("O" & i) & "', '" & Range("P" & i) & "')"
Db.Execute strSQL
Next i
 
For i = 8 To 100
strSQL = "UPDATE PROJETSDANGERS SET Raisondepassement= '" & Range("O" & i) & "', Action = '" & Range("P" & i) & "' WHERE Numproj = '" & Range("b" & i) & "'"
Db.Execute strSQL
Next i
 
'deconnexion de la base
Db.Close

Merci de votre aide

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strSQL = "INSERT INTO PROJETSDANGERS VALUES ('" & replace(Range("B" & i),"'","''")....

on remplace l'apostrophe par double apostrophe si elle existe au sein du mot

[spud96]

merci beaucoup