kikou
c encore moi

je narrive pas a faire fonctionner mon code

le voisi
Private Sub bo_maj_Click()

Dim dbs As Database, rst As DAO.Recordset
Dim xl_app As Excel.Application
Dim objexcel As Object, xl_feuille As Object

With xl_app
Set objexcel = Appli.Workbooks.Open(App.Path & "\projet.xls")
Set xl_feuille = objexcel.sheets("feuille2")
End With

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("LIGNE DE FACTURE")

rst.Edit
rst![Kilometrage] = xl_feuille.range("C3").Value
rst.Update

xl_app.activeworkbook.Close
xl_app.Quit

Set xl_app = Nothing
Set objexcel = Nothing



End Sub


ca me met une erreur au niveau de la ligne set objexcel...
erreur d'execution 424
objet requis

si quelqun voi le probleme merci de m'aider.

a tres vite jespere.
merci