Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 19 janv. 2009 à 13:32
Voilà un code de départ
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
whitelegend
Messages postés156Date d'inscriptionvendredi 13 janvier 2006StatutMembreDernière intervention 2 mars 2009 19 janv. 2009 à 14:30
Renfield,
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.