Acces vers excal

Bonjour,

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