J'aimerais faire interagir un fichier excel avec une base access. je m'explique, j'ai un fichier excel qui est créé et qui contient des données. Les données qui m'intéresse sont stocké dans le classeur qu'a partir de la ligne 10 et je voudrait pouvoir enregistrer ces données dans une table access nomée Test.mdb et tout ceci en ADO bien sur.
En DAO
coches Fichier..Préférences...Microsoft DAO 3.51 Object LIbrary
Public ClasseurXLS As Object ' a mettre en haut de ta form
-----------------------------------------------------------------------------------
Set ClasseurXLS = CreateObject("Excel.application")
ClasseurXLS.Workbooks.Open NomFichier ' Ouverture du Classeur d'Importation
Set Db = OpenDatabase(CheminBase)
Set Rq = Db.OpenRecordset("SELECT * FROM NomTable ")
For i = 10 To 65000
TaValeur = ClasseurXLS.Cells(i, "A")
Rq.AddNew
Rq("TonChamp") = TaValeur
RqUpdate
End If
Set Rq = Nothing
Set Db = Nothing
ClasseurXLS.Workbooks.Close ' Fermeture du Classeur d' Importation
----------------------------------------------------------------------------------
Remplis les variables: NomFichier,CheminBase,NomTable,TonChamp par tes valeurs
It@li@