Discussion :

[MonSavon]

Bonjour,

J'ai réalisé une requête access, et je souhaite lors de l'éxécution de celle-ci que les résultats s'importent directement dans un fichier EXCEL, et de préférence dans un Tableau Croisé Dynamique.

Je ne m'y connais pas trop en access, et j'ai essayé d'implémenter ce bout de code dans un module VB Access, ce qui a lamentablement échoué!

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, XXX, test.xls

Voilà!
Merci de votre aide.

[clementmarcotte]

Bonjour,

Tu peux utiliser Excel directement pour lire des données d'une banque ACCESS.

http://support.microsoft.com/kb/247412/fr

[MonSavon]

Bonjour,
et merci de ton aide!
J'ai bien réussi à appliquer ce que tu m'as indiqué. Cependant une erreur survient.

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
22
23
24
25
26
27
28
29
30
31
 
Sub Test()
 
 
    'Create a new workbook in Excel
 
   Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
   Dim oQryTable As Object
   Dim sNWind As String
 
 
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
   Set oSheet = oBook.Worksheets(1)
 
   'Create the QueryTable
 
   sNWind = "L:\...\...\Requêtes LUCY\bdd_test.mdb"
 
   Set oQryTable = oSheet.QueryTables.Add("OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sNWind & ";", oSheet.Range("A1"), "Select * from 0_Test_nombre_client")
   oQryTable.RefreshStyle = xlInsertEntireRows
   oQryTable.Refresh False
 
   'Save the Workbook and Quit Excel
   oBook.SaveAs "L:\...\...\Requêtes LUCY\Book1.xls"
    oExcel.Quit
 
 
End Sub

Une erreur 1004 survient.
De plus il me demande le mode d'ouverture, ce qui me semble bizare.

Je débute vraiment sur ACCESS, désolé si ces questions sont évidentes!

Merci!

EDIT :

J'ai finalement réussi, la requête s'éxécute, et son résultat s'inscrit bien dans book.xls.
Cependant, le résultat est nul. Alors que; lorsque je lance la requête sur la BDD le résultat est très loin d'être nul.
Faut il que mes données soit dans le excel également ? Dans mon cas ce n'est pas possible (760K lignes dans la BDD).

PS :Le but final de ma recherche est d'inscrire sur 3 pages différentes le résultat de 3 requêtes différentes.

Merci BiS.

[clementmarcotte]

Bonjour,

Avec quelle version d'ACCES ?

À partir d'Office 2007, on ne peut plus utiliser le moteur Jet. Il faut utiliser le moteur ACE.

As-tu mis le bon nom pour ton fichier ACCESS ?

Tu peux aussi essayer d'importer manuellement tes données dans Excel. C'est la fonction Données externes ou Importer des données d'Excel. Avec Excel 2010, il y a un bouton spécialement pour Access dans le ruban (onglet données). Pour les versions avant 2007, c'est dans le menu Données - Données externes. Pour 2007, 2013, les versions MAC et les versions en-ligne, je ne sais pas. Il me semble, qu'à quelque part dans le processus tu devrais pouvoir construire la requête SQL idoine pour récupérer les données dont tu as besoin.

Si l'importation manuelle réussit, tu devrais, avec un peu de chance, être capable de récupérer la chaîne de connexion et la requête SQL qu'Excel a utilisées et les réutiliser en VBA.