Discussion :

[climz]

Bonjour

J'aimerai savoir si il est possible d'envoyer le résultat d'une requete SQL vers un feuille d'un fichier excel ?
Exemple : Selectionné le nom d'une personne de la bdd dans une liste déroulante et envoyer les données corréspondantes sur le fichier excel

Merci à vous

[m-mas]

oui tu peux faire ça !!

il faudra ouvrire une feuille Excel, coller l'information souhaité, enregistrer la feuille Excel et fermer Excel !

[T'chab]

quand tu as le resultat de ta requete
tu fais outils -> Liaisons office et tu exportes vers Excel!!

le collage se fait automatiquement

[climz]

Merci mais j'ai peut être oublié de dire de manière automatique, transparente pout l'utilisateur.
Je vais essayé ta maniere T'chab

[m-mas]

il faudra ouvrire une feuille Excel, coller l'information souhaité, enregistrer la feuille Excel et fermer Excel !

j'ai voulu dire que ceci doit bien sûr se faire automatiquement en code VBA !

regarde déja ça : http://access.developpez.com/faq/?pa...es#ongletExcel

ensuite ceci : http://access.developpez.com/faq/?pa...TblAccessExcel

et le plus beau pour la fin : http://access.developpez.com/faq/?page=Excel#PilotExcel

et ça http://access.developpez.com/faq/?page=Excel#ExpExclReq

Amuse toi bien

[random]

regarde sous excel à données externes et microsoft query

les reqêtes paramétrées sous excel ne demandent aucun code et peuvent être actualisées de façon dynamique et interfacées avec des paramètres excel

[climz]

Bon voila si ca interesse quelqu'un voila ce que j'ai trouvé :

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
Private Sub Commande0_Click()
 
 
sql = "SELECT  ... REQUETE SQL ... Where  "
sql = sql & "T_UTILISATEUR!U_Chrono = " & Me.cmbRechNom & " "
 
'DoCmd.DeleteObject acQuery, "bdd_actuel"
Dim qd As QueryDef
Set qd = CurrentDb.CreateQueryDef("bdd_actuel", sql)
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "bdd_actuel", "u:\test_bd\NOM_DU_FICHIER.xls"
DoCmd.DeleteObject acQuery, "bdd_actuel"
 
    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
 
Exit_Commande0_Click:
    Exit Sub
Err_Commande0_Click:
    DoCmd.DeleteObject acQuery, "bdd_actuel"
    MsgBox Err.Description
    Resume Exit_Commande0_Click
 
End Sub

J'ai cmbRechNom qui est une liste déroulante avec comme requete de selection (3 colonnes, 2 visible, active sur la 3eme):

Code :

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

SELECT T_UTILISATEUR.Nom, T_UTILISATEUR.Nom, T_UTILISATEUR.U_Chrono FROM T_UTILISATEUR GROUP BY T_UTILISATEUR.Nom, T_UTILISATEUR.Nom, T_UTILISATEUR.U_Chrono ORDER BY T_UTILISATEUR.Nom;

Voila merci à Morsi pour les lien c sympa de ta part
See ya on