commande AddNew (ADODB.Recordset)

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:

---

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

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Test() Dim rs As Recordset Dim StrSql As String   Set rs = New ADODB.Recordset StrSql = "SELECT * FROM Table1" rs.Open StrSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic If Not rs.EOF Then With rs Do While Not .EOF If !Champ1 = "9" Then !Champ1 = "Nouvelle valeur" If !Champ2 = "9" Then !Champ2 = "Nouvelle valeur" If !Champ3 = "9" Then !Champ3 = "Nouvelle valeur" .Update .MoveNext Loop End With rs.Close End If Set rs = Nothing End Sub

---

Cordialement,
Michel