Bonjour à tous,

J'ai donc ce problème uniquement pour mon UPDATE. Les INSERT et SELECT se passent bien. J'ai exploré ce forum et d'autres, ait trouvé des choses intéressantes mais aucune ne marche pour moi. Je suis désespérément bloqué. Quelqu'un a-t-il eu ce problème?
par ailleurs, peut-être est-ce lié, mes INSERT écrivent dans des csv les champs numériques avec des guillemets double bien qu'ayant pris la précaution de ne pas mettre de simple ' dans ces champs.
Merci
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
26
27
28
29
30
31
32
 
Sub RSQLU(vPt As String, vStrSql As String)
'Requête insert
'entrées path,requête
'sorties (pBe est ce que la base existe)
Dim vEm As String 'error message
Dim vCC As String 'chaine de connection
Dim vSQ As String 'chaine sql
Dim vAR As ADODB.Connection
    'On Error GoTo ErrTrap
    pBe = True
    vCC = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & vPt & "\;Extended Properties='text;HDR=YES;FMT=Delimited'"
    vSQ = vStrSql
    Set vAR = New ADODB.Connection
    vAR.Open vCC
    vAR.Execute vSQ, , adCmdText Or adExecuteNoRecords
    vAR.Close
    Set vAR = Nothing
    Exit Sub
ErrTrap:
    Select Case Err.Number
        Case -2147217865
            pBe = False
            Exit Sub
        Case Else
            MsgBox (vStrSql)
            vEm = "erreur n°: = " & Err.Number & vbCr
            vEm = vEm & Err.Description & vbCr & vbCr
            MsgBox (vEm)
    End Select
End Sub
Le code qui appelle:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub MjEc()
'objectif MJ des tables écart to do controles fichiers prm & controle par cat
Dim vSr As String
Dim i As Integer
Dim vEm As String
Dim vAcV As Long
    'On Error GoTo ErrTrap
    PathLoad 'chargement variables Path
    CsvNmLoad 'chargement variables Noms des csv
    pIf = False
    'requête version d'Excel
    SqlSUVrsn
    If pIf = True Then Exit Sub
    pPrmEV = pRR
    AcShDl
    'Liste des Items à charger - requête catégories présentes dans pCscat et attribution
    SqlSLCatNm
    If pIf = True Then Exit Sub
    Call ItemLoad("Choisissez une catégorie")
    AcShDl
    If pBtC2 = True Then
        MsgBox ("Fin du Programme")
        Exit Sub
    End If
    'déduction du nom de la loterie
    pLtrNm = Left(pUfIs, 4)
    'requete nom du fichier source
    SqlSUSrcFil
    If pIf = True Then Exit Sub
    AcShDl
    pCsSrc = pRR
    'récup du chemin vers import
    SqlSUPathI
    If pIf = True Then Exit Sub
    AcShDl
    pPtImp = pRR
    'vérif présence du fichier source
    Call FicPre(pPtImp, pCsSrc)
    If pFP = False Then
        MsgBox (pCsSrc & " est absent. Fin du programme")
        Exit Sub
    End If
    'création fichier bis
    pCsBis = pLtrNm & "Bis.csv"
    Call ImpLtrCsv(pLtrNm)
    If pIf = True Then Exit Sub
    'move
    XlsToCsv (pCsBis)
    FileCopy pPtWrk & "\" & pCsBis, pPtDtS & "\" & pCsBis
    Kill pPtWrk & "\" & pCsBis
    Cells(pPrmEV, 1).Select
    Selection.End(xlUp).Select
    vAcV = ActiveCell.Value
    'écriture de l'age
    'vSr = "UPDATE " & pCsLtr & " SET SFAge = '" & vAcV & "' WHERE LtrNm = '" & pLtrNm & "'"
 
 
    Call RSQLU(pPtPrm, vSr)