salut,
sub essai()
dim dbs as database, rst as dao.recordset
dim xl_app as new excelapplication
dim objexcel as object, xl_feuille as object
with xl_app
set objexcel = workbook.open("c:\emplacement de votre classeur execl")
set xl_feuille=objexcel.sheets("feuil1(ou le nom de la feuille du classeur)")
end with
set dbs = currentDB
set rst = dbs.openrecordset("nom de la table")
rst.edit
rst![nomchamp]=xl_feuille.range("la cellule(expl C9)").value
rst.update
xl_app.activeworkbook.close
xl_app.quit
set xl_app = nothing
set objexcel = nothing
end sub