Discussion :

[nadgreg]

Bonjour à tous. Je suis débutant sur Access.
J'ai réalisé un formulaire dans ma base pour faire une recherche multi-critères selon ce tutoriel : http://www.learnup.fr/index.php?opti...cess&Itemid=59

Ca fonctionne impeccable.

Mais j'aurai besoin d'aide pour la suite de mon projet : je voudrais récupérer les valeurs issues de la recherche qui se trouve dans la zone de liste lstResults
Peu importe le moyen de récupération, j'ai juste besoin d'un truc simple à mettre en oeuvre (copier/coller ou export excel ou autre).
J'ai cherché un peu partout une solution, mais j'ai pas trouvé ou pas réussi à appliquer ce que j'ai vu.

Je vous remercie par avance de votre aide!

[Philippe PONS]

Bonjour,

Un petit bouton Export XL, avec un peu de code vba.

Cordialement,

[nadgreg]

Super, MERCI MERCI MERCI !!



Ca marche nickel!!

Encore merci pour la rapidité. Quand je pense que je me suis pris la tête pendant des heures...

[nadgreg]

Je ne voudrais pas abuser de ton temps , mais j'ai juste une question pour optimiser ça : à la première utilisation, pas de soucis. Mais à la seconde utilisation, comme la requête TEMP_QRY est déjà créée, ça coince.

Peut-on contourner le problème ?

[RobiPMS]

Bonjour.
Simplement, après la commande d'exportation, insérer la suppression de la requête temporaire

Code :

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

DoCmd.DeleteObject acQuery, "TEMP_QRY"

Cordialement

[nadgreg]

Vraiment, merci beaucoup. C'est parfait.

Désolé de ne pas avoir répondu avant, j'étais en congés!

A une prochaine!

[nadgreg]

Bonjour,

Je reviens à nouveau vers vous pour optimiser ma base. Le bouton "Exporter" permet de créer une requête temporaire qui exporte les résultats de la recherche multicritère (lstResults) sur excel.

Private Sub btnExportXL_Click()
' Export des résultats au format Excel

Dim qdf As DAO.QueryDef
Dim sql As String

sql = lstResults.RowSource
Set qdf = CurrentDb.CreateQueryDef("TEMP_QRY", sql)

DoCmd.TransferSpreadsheet acExport, , "TEMP_QRY", "c:\ExportBD"
DoCmd.DeleteObject acQuery, "TEMP_QRY"

End Sub

Est-il possible de faire la même chose, mais cette fois-ci en exportant les résultats de la recherche dans une nouvelle table ? J'ai essayé de créer une requête création de table en vba pour y arriver, mais je ne suis pas assez connaisseur.

Merci d'avance pour votre aide!

[Tofalu]

Bonjour

Regardez du côté des requêtes SELECT INTO ou INSERT INTO SELECT suivant que vous souhaitiez créer la table ou juste la remplir.

[nadgreg]

Solution trouvée : merci pour la piste, j'ai passé quelques heures à réussir ce que je voulais, mais l'important c'est de réussir !
J'ai également trouvé des informations sur un autre site.

Et mon bout de code :

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
Private Sub btnExportXL_Click()
' Export des résultats au format Excel
 
    Dim qdf As DAO.QueryDef
    Dim sql As String
 
    sql = lstResults.RowSource
    Set qdf = CurrentDb.CreateQueryDef("TEMP_QRY", sql)
 
    DoCmd.TransferSpreadsheet acExport, , "TEMP_QRY", "c:\ExportBD"
 
    DoCmd.SetWarnings False
    'supprime le message de demande confirmation
 
    DoCmd.RunSQL "SELECT TEMP_QRY.N°, TEMP_QRY.X_L93, TEMP_QRY.Y_L93 INTO BD_FORAGES_MAPINFO_RECH FROM TEMP_QRY"
 
    DoCmd.DeleteObject acQuery, "TEMP_QRY"
 
End Sub

C'est bête, mais je suis trop content!!

A+