exporter d'excel vers access

Version imprimable

Bonsoir à tous,

Voici un bout de code trouvé sur les tutos de Silky:
Code:

1 2 3 4 5 6 7 8 9 10 Sub exportDonnées_DAO() Dim Db As DAO.Database Dim strSQL As String Set Db = DAO.OpenDatabase("C:\dossier\dataBase.mdb", False, False) strSQL = "INSERT INTO [Table1] VALUES('999','8','DVP','7','mimi','22/10/2007')" Db.Execute strSQL Db.Close End Sub
Je n'arrive pas à trouver la solution qu'il me faut. Je souhaite intégrer un tableau excel entier (sans les en-têtes qui sont les mêmes) dans une table access. Il faut faire une boucle? ou il y a t-il une syntaxe?

Alex

Bonsoir
voici une démarche à développer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub exportDonnées_DAO()
Dim Db As DAO.Database, TWB As Object
Dim strSQL As String, i As Integer
Set TWB = ThisWorkbook.Sheets("FeuilleDonnées") ' à adapter
Set Db = DAO.OpenDatabase("C:\dossier\dataBase.mdb", False, False)
  i = 2
    Do Until IsEmpty(TWB.Range("A2:A1000"))
       varA = TWB.Range("A" & i): varB = TWB.Range("B" & i)
       varC = TWB.Range("C" & i): varD = TWB.Range("D" & i)
       varE = TWB.Range("E" & i): varF = TWB.Range("F" & i)
       varG = TWB.Range("G" & i)
    strSQL = "INSERT INTO [Table1] VALUES('" & varA & "','" & varB & "','" & varC & _
             "','" & varD & "','" & varE & "','" & varF & "','" & varG & "')"
        i = i + 1
        Db.Execute strSQL
    Loop
  Db.Close
End Sub

Bonne soirée.

Merci Abed!

J'avais pas bien saisi l'histoire des variables. Avec une boucle, j'arrive à un truc du genre:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Sub exportation()
 
Dim Db As DAO.Database
Dim TWB As Object
Dim strSQL As String
Dim varA, varB, varC, varD, varE, varF, varG, varH, varI, varJ, varK, varL, varM, varN As String
Dim i, lastcell As Integer
 
 
lastcell = Range("N1").End(xlDown).Row
 
Set TWB = ThisWorkbook.Sheets("Feuil1")
Set Db = DAO.OpenDatabase("C:\dossier\dataBase.mdb", False, False)
 
    For i = 2 To lastcell
        varA = TWB.Range("A" & i): varB = TWB.Range("B" & i)
        varC = TWB.Range("C" & i): varD = TWB.Range("D" & i)
        varE = TWB.Range("E" & i): varF = TWB.Range("F" & i)
        varG = TWB.Range("G" & i): varH = TWB.Range("H" & i)
        varI = TWB.Range("I" & i): varJ = TWB.Range("J" & i)
        varK = TWB.Range("K" & i): varL = TWB.Range("L" & i)
        varM = TWB.Range("M" & i): varN = TWB.Range("N" & i)
 
strSQL = "INSERT INTO [Table1] VALUES('" & varA & "','" & varB & "','" & varC & _
            "','" & varD & "','" & varE & "','" & varF & "','" & varG & "','" & varH & "','" & varI & _
            "','" & varJ & "','" & varK & "','" & varL & "','" & varM & "','" & varN & "')"
 
        Db.Execute strSQL
 
    Next
 
Db.Close
 
End Sub