Discussion :

[rossemma]

bonjour, j'ai ce code qui fonctionne pour un seul fichier
je cherche à l'adapter afin de faire une boucle sur tous les fichiers mdb d'un répertoire (qui comporte tous la même table1 à exporter)

merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
35
36
37
38
39
40
Sub importDonnees()
 
    Dim DbExt As DAO.Database
    Dim rs As DAO.Recordset
    Dim SQL As String, x
 
    Dim SRC As String
    Dim EXT As String: EXT = ".mdb"
    Dim FILE As String
    Dim NOM As String
 
    Dim DL As Variant
    Dim WK As Workbook
    Dim WS As Worksheet
 
    SRC = "c:\test"
    FILE = "Access1" & EXT
    NOM = "table1"
 
    Set WK = ThisWorkbook
    Set WS = WK.Worksheets("Feuil1")
    DL = Range("A" & Rows.Count).End(xlUp).Row + 1
 
    With WS
        .Range("A2:AD" & DL).Clear
    End With
 
    DL = Range("A" & Rows.Count).End(xlUp).Row + 1
 
    Set DbExt = OpenDatabase(SRC & FILE)
    SQL = "select * from " & NOM
    Set rs = DbExt.OpenRecordset(SQL, dbOpenDynaset)
 
    WS.Range("A" & DL).CopyFromRecordset rs
 
    Set rs = Nothing
    DbExt.Close
    Set DbExt = Nothing
 
End Sub

[Thumb down]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub TEST()
Dim Base As String
Const Rep = "C:\MyrepAccess\"
Base = Dir(Rep & "*.MDB")
With ThisWorkbook.Sheets("Feuil1")
    .Range(.Range("A2"), .Cells(.UsedRange.Rows.Count + 2, "AD")).Clear
End With
With CreateObject("Adodb.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Environ("TEMP") & ";Extended Properties=""Text;HDR=YES;FMT=Delimited;"""
    While Base <> ""
     ThisWorkbook.Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset .Execute("Select * from [Table1] in '" & Rep & Base & "'")
    Base = Dir
   Wend
    .Close
End With
End Sub