Discussion :

[thibault1]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private 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

[FreeAccess]

Bonjour,

Vers un autre code.....non........mais peut être que la lecture de ce tuto devrait t'orienter vers la solution:

Communication entre Access et Excel

..bonne lecture..