Discussion :

[joreveur]

Bonjour
j'ai cherché sur le forum mais je n'ai pas réussi à mettre en oeuvre les différentes méthodes trouvées.

Dans un formulaire j’appelle par un bouton une requête via VBA et je voudrais que ça s'affiche non dans une liste mais dans un classeur Excel (si c’est possible ?)

voici mon code qui fonctionne en renvoyant le résultat dans une liste

Code :

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

1
2
3
4
5
6
7
Private Sub ExportExcel_Click()
    Dim testsql As String
    testsql = "SELECT Enfant_Sexe AS Civ ,  Enfant_Nom AS Nom, Enfant_Prenom AS Prénom ,Groupe,Transport,Transport "
    testsql = testsql & " FROM Table_Enfants,Table_Groupes,Table_Transport ;"
    Me.Liste16.RowSource = testsql
    Me.Liste16.Requery
End Sub

en vous remerciant de votre aide.

[Thierry_PALLIER]

Bonjour joreveur
méthode simple, sans mise en forme:

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Ma_Requete", "lecteur\dossier\nom_fichier.xls", 0

Il y a un excellent tuto http://cafeine.developpez.com/access...l/excel/#LVI-A

[joreveur]

Bonjour et merci

je vais essayer ce soir. "Ma_Requete" je dois le remplacer par "testsql" ?

Cordialement

[Philippe PONS]

Oui, c'est bien ça.

Note que la requête ci-dessus(testsql ) n'est pas bonne: c'est une requête sur 3 tables, et tu n'as pas indiqué les conditions de liaison entre les tables. Tu vas obtenir un produit cartésien, avec un très grand nombre de lignes.

La bonne requête serais du style:

Code :

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

1
2
3
4
SELECT Enfant_Sexe AS Civ ,  Enfant_Nom AS Nom, Enfant_Prenom AS Prénom ,Groupe,Transport,Transport 
FROM Table_Enfants,Table_Groupes,Table_Transport 
WHERE Table_Enfants.Id_Enfant=Table_Groupes.Id_Enfant
etc...

[joreveur]

Bonsoir

oui j'avais simplifié la requête et je n'avais pas mis de tests de relation entre les tables.

concernant l'export Excel, cela me trenvoie un message qu'Access n'a pas pu trouver l'objet " testsql". il manquerait quelquechose dans ma syntaxe ?

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "testsql", "C:\temp\export.xls",0

merci

[RobiPMS]

Bonjour.
Il faut enlever les " qui encadrent testsql, sinon, Access cherche une requête nommée "testsql" dans les objets requête, alors qu'il s'agit de la variable qui a été déclarée plus haut.
Cordialement.