References:
Microsoft Excel 10.0 Object Library
Microsoft ActiveX Data Objects Library 2.8
------
Dim oExcel As Excel.Application
Dim oWorkSheet As Worksheet
Dim oRange As Range
Dim oConn As Connection
Dim sBuffer As String
Set oConn = New Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\a.mdb;"
Set oExcel = New Excel.Application
Set oWorkSheet = oExcel.Workbooks.Open("C:\a.xls").Worksheets("Feuil1")
For Each oRange In oWorkSheet.Range("A1:A5")
sBuffer = Replace(oRange.Text, "'", "''")
oConn.Execute "INSERT INTO `Table1` (`Champ1`) VALUES ('" & sBuffer & "') "
Next oRange
Je m'incruste un peu dans le sujet mais la source que tu donnes viens de me donner la solution à un problème non résolu que j'avais posté !!! merci bcp!
J'ai même fini par abandonner ce que je voulais faire au profit d'un autre système.
Je prépare un bout de code et un message pour le poster dans mon sujet afin qu'il y ai une solution disponible.