Cellule excel vers cellule access

Je suis un jeune informaticien qui travaille sur une application Vb pour la gestion de fiches et j'ai un probléme pour faire la liaison entre les données qui sont sous forme d'un fichier excel et la base de données (Access) je ne sais pas comment importer ces données dans ma base de données?
Merci de m'aider.

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

salut toobillooupp,

Ya pas de quoi, on est la pour ça

bye

Thibal

je tien a tous vous remercier pour ces reponses
je suis desoler de repondre que maintenant.
trop de boulot.
je v essayer de combiner toutes vos reponses je vous tien au courant dans les plus bref delais
mohamed pour ton pb
regarde sur ce situe ya plein de faq
http://www.mvps.org/accessfr/modules

salut mohammed
rien de plus simple
1)tu crées un état avec toutes les donnés que tu veux downloader
2)DoCmd.OutputTo acReport, "nom de ton état", acFormatXLS

(excel prends les nom des txtbox comme entete )

Thibal

salut toubilooup,

en fait ta plusieurs façon de faire ça la plus simple je pense c'est d'utiliser le transfertspreedsheet qui est prévu à cette usage:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "nom de ta table ", "nom du fichier excel", True, "A1:Z500"

et tu remplace le A1:Z500 par la plage de cellules que tu veux importer.

Essaye ça et donne moi des nouvelles

thibal

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

Salut,
comme je n'ai pas le temps je vous ais trouver ce ptit module Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click

Dim MaBase As DAO.Database
Dim Matable As DAO.recordset

'Défini le nom de votre fichier Excel
MonFichier = "nomdevotrefichier.xls"

'Ouvre l'application Excel
Set MonXL = CreateObject("Excel.Application") 'Ceci initialise la
Set MaBase = CurrentDb()
Set Matable = MaBase.openrecordset("TableName")

'Ouvre MonFichier
MonXL.Workbooks.Open FileName:="C:\Mes Documents\" & mon fichier"

matable![nomchamp]=MonXL.Range("A1").Value
Exit_Commande1_Click:
Exit Sub

Err_Commande1_Click:
MsgBox Err.description
Resume Exit_Commande1_Click

End Sub

à la place de A1 la cellules à exporter.
Bonne chance.
Merci

salut,
vous devriez user vba.
bonne chance
Merci.