Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
763 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Access vers excel

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Access vers excel

n°1960816
thibault16
Posté le 27-01-2010 à 12:31:43  profilanswer
 

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

mood
Publicité
Posté le 27-01-2010 à 12:31:43  profilanswer
 

n°1960936
olivthill
Posté le 27-01-2010 à 17:37:59  profilanswer
 

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

n°1962148
otobox
Maison fondée en 2005
Posté le 02-02-2010 à 00:28:51  profilanswer
 

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


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Access vers excel

 

Sujets relatifs
Export Excel vers Access à l'aide de VBAExport de données Access vers Excel avec formules excel préservées
Export Access vers ExcelImporter des données de plusieurs fichiers EXCEL vers ACCESS
[ACCESS] Rqt multicritere export vers ExcelConseil pour migration Excel vers access ou autre SGBD en VBA
Défi pour les pros : importer des données excel vers access...Export d'Access vers Excel
[access] macro ou module d'exportation de fichiers vers excelpb données de access vers excel avec lien hypertexte
Plus de sujets relatifs à : Access vers excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR