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