Stocker un fichier excel sous access

Fermé
vivouangel Messages postés 14 Date d'inscription dimanche 16 février 2014 Statut Membre Dernière intervention 28 avril 2014 - Modifié par vivouangel le 1/04/2014 à 23:44
Bonjour,

j'ai un fichier Excel de plusieurs feuilles je vais le stocker dans une base de donnée Access on utilisant vb.net c.à.d quand je clique sur un bouton "stocker" toutes les feuilles Excel seront stockées sous Access et chaque table renommée selon le nom de la feuille. je fais un code mais il ne marche pas svp si quelqu'un à une idée aider moi et merci
voila le code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Import As Object
Dim db As dao.Database
Dim table, tabcmd, name,feuille As String
Dim k, j As Integer
Dim xls As Excel.Application ''Application Excel
Dim xlsfeuille As Excel.Worksheet
On Error Resume Next
Import = CreateObject("Access.Application") 'Création d'un objet Access
'Démarrer Access
Import.Visible = True
db = Import.OpenCurrentDatabase("c:\users\marwen\documents\base1.accdb")
j = 1
For i = 1 To tabcmd.Length
For k = 1 To tabcmd.Length
table = " CREATE TABLE montable () "
name = xlsfeuille.Name
db.TableDefs("montable").Name = name
table = "INSERT INTO VALUES montable( xlsfeuille(j).Cells(i, k)) « "
j = j + 1
Next k
Next i
End Sub
End Class
A voir également: