vivouangel
Messages postés14Date d'inscriptiondimanche 16 février 2014StatutMembreDernière intervention28 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