Probleme pour copier ma base Access

Kero

XLDnaute Junior
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.
 

Pièces jointes

  • basetest.zip
    16.4 KB · Affichages: 29
  • basetest.zip
    16.4 KB · Affichages: 37
  • basetest.zip
    16.4 KB · Affichages: 28

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Probleme pour copier ma base Access

Bonjour,

Code:
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
 

Pièces jointes

  • copiebase.xls
    38.5 KB · Affichages: 61

Discussions similaires

Réponses
14
Affichages
219

Statistiques des forums

Discussions
314 450
Messages
2 109 721
Membres
110 551
dernier inscrit
Khyolyanna