Récupérer les données d'une table access vers excel

Question

Bonjour &#224; tous !

Je suis d&#233;butante dans la programmation et je ne comprends pas pourquoi mon pgrme plante. Voil&#224; le code que l'on m'a pass&#233; pour transf&#233;rer les donn&#233;es d'une table access vers excel:
  
Sub CopyFromRecordset_DAO() 


     Dim Db1 As Database 


     Dim Rs1 As Recordset 


     


     Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\Commandes.mdb" ) 


     Set Rs1 = Db1.OpenRecordset( Name := "Factures pour un client" , Type :=dbOpenSnapshot) 


     With Worksheets( "Donn&#233;esDataBase" ).Range( "A2" ) 


     With Selection.CurrentRegion 


               Intersect(.Cells, .Offset( 1 )).Select 


          End With 


          Selection.ClearContents 


          .CopyFromRecordset Rs1 


     End With 


     


     Db1.Close 


End Sub 



&#231;a plante toujours au niveau de la ligne en rouge !!! quelqu'un peut-il m'expliquer?
Merci d'avance !!!

Zlub · Answer

Salut sany6,


Tu peux lire le post de trolix qui explique comment manipuler EXCEL et voir celui de ZTPdiffusion qui propose une m&#233;thode pour importer les donn&#233;es d'ACCESS vers Excel

++

Zlub

<hr size="2" width="100%">

sany6 · Answer

Merci Zlub! mais je crois que la programmation que tu m'a envoy&#233;e est plus compliqu&#233;e...et comme je d&#233;bute ...aie!
je vais regarder...

Récupérer les données d'une table access vers excel

2 réponses

Discussions similaires