Bonjour, j'ai la "table1" suivante dans Access :

Champ1 - Champ2 - Champ3
--- 2 ------- 8 ------ 3
--- 4 ------- 9 ------ 2
--- 0 ------- 2 ------ 9

Je voudrais pouvoir modifier le chiffre 9 de la table1 à l'aide d'une macro Excel, mais j'ai une erreur que je ne réussi pas à résoudre lors l'exécution de la ligne 17. Merci de m'aider.

Voici mon code :
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
Sub test1()
     Dim dbfullname As String
     dbfullname = "C:\Users\hbc87\Desktop\testimportexcel.mdb"
     Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.jet.OLEDB.4.0; Data Source=" & _
        dbfullname & ";"
 
    Set rs = New ADODB.Recordset
 
    With rs
        rs.Open "SELECT Champ2 FROM Table1 ", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
        MsgBox rs.Fields("Champ2")
        rs.Move (1)
        MsgBox rs.Fields("Champ2")
        rs.Fields("Champ2") = "nouvelle_valeur"
        'rs.AddNew "Champ2", "nouvelle_valeur"
        rs.Update
    End With
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub