Bonjour a tous,

Merci beaucoup pour votre aide d’abord, j’ai besoin savoir comment il faut faire pour chercher des fichiers *.mdb dans un répertoire spécifique (\\172.21.67.147\, c’est un exemple) ?
J’ai besoin aussi copier toutes les donnes dans ces fichier, mais l’information d’un fichier dans une feuille nouvelle.
Toute avec un Macro

Je attache le code que j'ai suis en train de faire.

Merci beaucoup


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
Sub Access()
'
' Access Macro
' Copy acces data
'
 
'
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=\\172.21.67.147\130508.mdb;Mode=Share Deny Write;" _
        , _
        "Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine T" _
        , _
        "ype=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New D" _
        , _
        "atabase Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compa" _
        , _
        "ct=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False" _
        ), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("Measurements")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = "\\172.21.67.147\Export\130508.mdb"
        .ListObject.DisplayName = "Table__130508"
        .Refresh BackgroundQuery:=False
    End With
End Sub