Bonjour, voila, je souhaite inserer des valeur dans une table access, nomé client, à partir de textbox d'un userform excel par exemple entré en derniere position : textbox1.text = E1, textbox2.text = Durand et textbox3.text = Patrice.
voici le code que j'utilise actuellement :
Sub dbclient(DB As String)
Dim connexion As ADODB.Connection
Dim resultat As ADODB.Recordset
Set connexion = New ADODB.Connection
connexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB & ";"
Set resultat = New ADODB.Recordset
With resultat
.Open "SELECT [Code_Client], [Nom], [Prénom] FROM [Client]", connexion, , , adCmdText
'.MoveLast
End With
With resultat
.AddNew
.Fields("Code_Client") = TextBox1.Text
.Fields("Nom") = TextBox2.Text
.Fields("Prénom") = TextBox3.Text
.Update
End With
resultat.Close
Set resultat = Nothing
connexion.Close
Set connexion = Nothing
End Sub
Merci pour votre aide