import données excel dans access

Question

salut la jeunesse

je voudrai ins&#233;rer des donn&#233;es provenant d excel
dans une base de donn&#233;es access

je voudrai parcourir le fichier excel 
et ins&#233;rer les valeurs lu dans la BD

je galere trop
HELP
g activ&#233; des r&#233;f&#233;rences ( ms excel , ado .....) 

au secours

merci

cs_samy56 · Answer

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&#233; les donn&#233;e Excel
rs.open "Ta Table",CurrentProjet.Connection, adOpenDynamic, adLockOptimistic

Puis tu parcoure ton fichier Excel

'Tant que la premi&#232;re colonne contient une valeur
While xls.cells(i,1) <> ""
   'Ajout des donn&#233;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&#233; quelque chose sinon dit le moi

a plus.

samy56

sniperdd · Answer

&&&&&&&&&&&

Import données excel dans access

2 réponses

Discussions similaires