Bonjour,
 
Je souhaite transférer des données access vers un fichier excel. J'ai une table Export qui contient plusieurs champs.
 
En recherchant sur différents forum j'ai réussi à trouver le code suivant:
 
rivate Sub Commande0_Click()
 
 
     Dim Db1 As Database
     Dim Rs1 As Recordset
     ' Ouverture de la base de données
     Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\bd3.mdb" )
     ' Ouverture de la table Factures
     ' Un objet Recordset représente les enregistrements d'une table
     Set Rs1 = Db1.OpenRecordset(Name:="Export", Type:=dbOpenSnapshot)
     ' Effacement des données existantes dans la WorkSheet (sauf les titres)
     ' et copie des enregistrements
     With ThisWorkbook.Worksheets("Classeur1" ).Range("A2" )
          With Selection.CurrentRegion
               ThisWorkbook.Intersect(.Cells, .Offset(1)).Select
          End With
          Selection.ClearContents
          .CopyFromRecordset Rs1
     End With
     'Fermeture de la Base de données
     Db1.Close
 
Mais VBA me dit "erreur d'execution 424" objet requis et me pointe la ligne set db1.
 
QQn pourrait-il m'aider ou bien même m'orienter vers un autre code...
 
Merci d'avance
Tibo

Il y a peut-être une référence à cocher dans la liste des références.

Essaye :
Dim Db1 As DAO.Database
Dim Rs1 As DAO.Recordset  
 
Sans garantie...