Private Sub Access()
dim Nomtable as recordset
dim dbb as database
dim chain as string
'COPIE DANS ACCESS
Chain = ("emplacement du fichier")
If Right$(Chain, 1) <> "\" Then Chain = Chain & "\"
Set dbb = DBEngine.Workspaces(0).OpenDatabase(Chain & "Nomfichieraccess.mdb")
Set NomTable = dbb.OpenRecordset("NomTableAccess", dbOpenTable)
NomTable.Index = "index à choisir"
NomTable.Edit
NomTable("Champ de la table access") = valeur souhaitée ( exmple valeurtext de la form VB...
NomTable.Update
NomTable.Close
Set NomTable = Nothing
set dbb = nothing
End Sub