Probleme pour copier ma base Access

[Kero]

Bonjour a tous

Voila j'ai une base access toute simple et je souhaite la copier dans ma feuille excel. Il me renvoit un message d'erreur et je ne vois pas comment le résoudre. Si quelqu'un a une idée? Ci joint la base avec le fichier excel.

 

[BOISGONTIER]

Re : Probleme pour copier ma base Access

Bonjour,

Sub LectureAccess()
  'Microsoft ActivexDataObject 2.8 Library
  repertoire = ThisWorkbook.Path & "\"
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & repertoire & "basetest.mdb"
  Set rs = cnn.Execute("SELECT * FROM Site")
  Range("A1").CopyFromRecordset rs
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

Liens Access/Excel

JB

 

[Kero]

Re : Probleme pour copier ma base Access

Bonjour Boisgontier

Merci de ta réponse et de ton lien qui me renseigne un peu plus!!

Cordialement