Sub test_modifi_bdd()
Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim fld As ADODB.Field
Set Conn = New ADODB.Connection
With Conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open ThisWorkbook.Path & "\bdd_sauvegarde_adresse.mdb"
End With
Set rsT = New ADODB.Recordset
'table nommée "maTable"
rsT.Open "ma_Table", Conn, adOpenKeyset, adLockOptimistic
With rsT
.MoveFirst
' recherche la valeur de la cellule B10 dans champ "numero_add"
' pour Cells(10, 2) => numérique
'.Find ("numero_add=" & Cells(10, 2))
' pour Cells(10, 2) => texte
.Find ("numero_add=" & Chr(34) & Cells(10, 2) & Chr(34))
'quand la valeur est trouvée , on modifie le champ "statut_add" dont le Type de données est "Texte"
' quand Cells(10, 2) => numérique pas de problème
' mais quand Cells(10, 2) => texte cela ne fonctionne pas
.Fields("statut_add") = Chr(34) & Cells(10, 4) & Chr(34)
.Update
End With
Conn.CloseEnd Sub