import données excel dans access

salut la jeunesse

je voudrai insérer des données provenant d excel
dans une base de données access

je voudrai parcourir le fichier excel
et insérer les valeurs lu dans la BD


je galere trop
HELP
g activé des références ( ms excel , ado .....)

au secours

merci

salut

Pour commencer ouvre ton fichier Excel

Dim xls as object
Dim rs as new ADODB.Recordset

set xls = CreateObject("Excel.application")
xls.open "Ton Fichier Excel"

'Si tu te trouve dans un module Access
'Ouverture de la table dans laquel tu veut envoyé les donnée Excel
rs.open "Ta Table",CurrentProjet.Connection, adOpenDynamic, adLockOptimistic

Puis tu parcoure ton fichier Excel

'Tant que la première colonne contient une valeur
While xls.cells(i,1) <> ""
   'Ajout des donnée dans ta base
   rs.addnew
   rs("Ton Champ") = xls.cells(i,Colonne)
   rs.update  
 i=i+1
wend
'Fermeture du recordset
rs.close

'Fermeture du fichier Excel
xls.Quit
set xls = nothing

Je ne crois pas avoir oublié quelque chose sinon dit le moi

a plus.

samy56

&&&&&&&&&&&