transfert de données de VBA vers ACCESS

j'ai créé une application excel et je voudrais récupérer les données résultant du traitement pour les inserer automatiquement dans une Table Access.
En fait à chaque traitement du prog, on édite une nouvelle feuille de donnée excel dont les données de certaines cellules doivent constituer un nouvel enregistrement de la table
On m'a parlé de transferpreadsheet mais étant donné que mon aide en ligne est en anglais, je galère.
Merci d'avance
Pearl

Salut,

Voici une procédure qui te sera peut-être utile :

Sub ACCESS_EXCEL()
' pour faire appel aux objets "Database" et "Recordset", il faut sélectionner
' "Microsoft DAO 3.5 Object Library" dans le menu Outils/Références

Dim db As Database, rst As Recordset, t As Long

Application.ScreenUpdating = False

' référencer la base ACCESS
Set db = OpenDatabase("C:\Ma Base.mdb")

' exécuter une requête
Set rst = db.OpenRecordset("SELECT * FROM MaTable;")

Application.ScreenUpdating = True
Beep
Set db = Nothing: Set rst = Nothing
End Sub

Bon programme,

Philippe.


-------------------------------
Réponse au message :
-------------------------------

j'ai créé une application excel et je voudrais récupérer les données résultant du traitement pour les inserer automatiquement dans une Table Access.
En fait à chaque traitement du prog, on édite une nouvelle feuille de donnée excel dont les données de certaines cellules doivent constituer un nouvel enregistrement de la table
On m'a parlé de transferpreadsheet mais étant donné que mon aide en ligne est en anglais, je galère.
Merci d'avance
Pearl

Merci bcp !

J'ai réussi à le faire autrement :

Private Sub Commande5_Click()
Dim chemin1 As String
Dim chemin2 As String
Dim Canal As Double
Dim Data As Variant

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Tri Factures", "C:\Mes documents\essai.xls", True

Set MonXl = CreateObject("Excel.Application")
MonXl.Visible = True
MonXl.UserControl = True

MonXl.Workbooks.Open Filename:="c:\Mes documents\essai.xls"

With MonXl

Série d'instructions

End With

Set MonXl = Nothing

End Sub


Ce qui m'étonne, c'est que si je lance deux fois de suite ce programme, la seconde fois, il me dit qu'il ne trouve pas la propriété Range. Comme si la variable MonXl n'était pas "vidée" ...

Il manque quelque chose à mon code ?

meci buceau commant fait code pour bd en access

 

yarmook2008

Philippe : concernant le transfert de données vers access

bonjour,
je rencontre un peu le même problème que la personne qui a posé la question : je tente de transferter des variables excel dans une base de données access et je ne sais pas comment faire alors je pioche les infos ou je peux. j'ai appris qu'il fallait faire attention a outil - references - micorsoft dao librayry- j'ai coché ce que je pense être cela et cela commence mal le programme me dit que ce n'est pas gere...
si vous pouviez me donner la démarche à suivre claire et facile...
merci