Mettre résultat requête SQL sur Excel

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:

---

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.

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

Code:

---

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

Bonjour et merci

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

Cordialement

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:

---

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...

---

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:

---

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

---

merci

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.

Bonjour,

en enlevant les " ,Acces retourne une erreur 7871 :

Citation:

---

Erreur d’exécution '7871'
Le nom de table entré n'est pas conforme aux règles d'affectation des noms d'objets Microsoft Offfice Acces.

---

Bonjour.
Il faut créer un objet requête temporaire:

Code:

---

1 2 3 4 5 6 7

Dim reqSQL As String reqSQL = "SELECT champA FROM Tatable" Dim qd As QueryDef Set qd = CurrentDb.CreateQueryDef("tempqry", reqSQL) DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tempqry", "C:\temp\export.xls", 0 DoCmd.DeleteObject acQuery, "tempqry" Set qd = Nothing

---

Voir la FAQ
Cordialement

Bonjour

merci de la réponse. ça fonctionne très bien.

j’avais déjà regardé la FAQ mais je n'avais pas tout compris, alors encore merci des ces éclaircissements.

Dernière question sur ce sujet, ouvrir si ce n'est déjà fait, Excel et afficher le résultat ?

Mais il n'y a pas d'urgence pour cela, je peux chercher dans la FAQ

Bien à vous tous

Pour ouvrir...
Avec ShellExecute
1. Dans les déclarations

Code:

---

1 2 3

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

---

2. Ligne de commande pour ouvrir le fichier :

Code:

---

ShellExecute Me.hwnd, "open", "Ici le string chemin du fichier", "", CurrentProject.Path, 1

---

Merci beaucoup cela a répondu à mes attentes
Bonne continuation