Connecting an Access database (MDB) in an application excel.

Add reference
Microsoft DAO object librairy XX

In a general module (eg Module1) paste the code below

Code:
 Sub CopieDBaccess () 
  Sunday BDexp As Database 
  Sunday Table As Recordset 
  As Sunday TbDef TableDef 
  Sunday Ch As String, Lig As Long, i As Integer 
      Ch = "& path \ & NomDeLaBD.MDB" 
      Set BDexp = DBEngine.Workspaces (0). OpenDatabase (Ch) 
      Set Table = BDexp.OpenRecordset ( "tablename", dbOpenDynaset) 
      'Debug.Print Table.Name 
      Set TbDef = BDexp.TableDefs ( "tablename") 
      Lig = 3 
  Sunday Name (TbDef.Fields.Count - 1) As String 
  'Place the column 
  With Sheets ( "Sheet1") 
      For i = 0 To TbDef.Fields.Count - 1 'For any line 
          'Debug.Print TbDef.Fields (i). Name 
          Name (i) = TbDef.Fields (i). Name 
          . Cells (Lig, i + 3) = Name (i) 
     Next 
      'Caller registration on 1 
     Table.MoveFirst 
      Lig = 4 
      While Not Table.EOF 
          For i = 0 To TbDef.Fields.Count - 1 'For any line 
              . Cells (Lig, i + 3) = Table (Name (i)) 
          Next i 
          Lig Lig + 1 = 
          Table.MoveNext 'move to the next record 
     Wend 
  End widt 
     Table.Close 
     BDexp.Close 
      Set BDexp = Nothing 
      Set Table = Nothing 

  End Sub