Dim access As Object
Dim db As dao.Database
Dim tb As dao.TableDef
Dim tabcmd As String
Dim xlsfeuille As Excel.Worksheets
On Error Resume Next
access = CreateObject("Access.Application") 'Création d'un objet Access
access.Visible = True 'Démarrer Access
db = access.OpenCurrentDatabase("c:\users\documents\base1.accdb")
j=1
For i = 1 To tabcmd.Length
tb = db.CreateTableDef
db.TableDefs(j).Name = xlsfeuille(i).name
db.TableDefs.Append(tb) ' ajouter la table à la base
Next i
j=j+1
db.Close()
db = Nothing
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question