Code vba exportation requête acces vers Excel

Code vba exportation requête acces vers Excel - VB/VBA/VBS - Programmation

Marsh Posté le 20-03-2012 à 10:09:54    

Bonjour,
 
j'ai concocté le code suivant  dans le but d'exporter une requête access vers un fichier
Excel:
 

Code :
  1. Sub monexport()
  2. Dim toip_es As Database
  3. Dim strSQL As String
  4. Dim rst As Recordset
  5. Set rst = CurrentDb.OpenRecordset("Maquette_TOIP" )
  6. Set App = CreateObject("Excel.application" )
  7. App.Workbooks.Open "C:\Users\moi\Desktop\Nouveau dossier\Export.xlsx"
  8. App.Sheets("Feuil1" ).Select
  9. With App.Worksheets("Feuil1" )
  10.     For i = 2 To rst.RecordCount
  11.          For j = 0 To 5
  12.     .cells(i + 1, j + 1) = rst(j).Value
  13.          Next j
  14.     rst.MoveNext
  15.     Next i
  16. End With
  17. rst.Close
  19. End Sub


 
La référence Microsoft Axcel12.0 Object Library   a bient été cochée.
 
J'arrive à exécuter le code sans problème mais le fichier excel ne s'ouvre pas.
 
Merci de votre aide.
 
Cordialement,

Reply

Marsh Posté le 20-03-2012 à 10:09:54   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed