Discussion :

[Cavart]

Bonjour,

je cherche une solution pour envoyer des données filtrées dans un formulaire avec la fonction Me.FilterOn, dans un classeur Excel.

J'ai un multiFiltres qui fonctionne très bien, et dont je stocke le résultat dans un variable String appelée "filtre", et que j'active avec la fonction suivante:

Code :

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

1
2
    Me.Filter = filtre
    Me.FilterOn = True

Maintenant, j'aimerais utiliser la variable "filtre" pour pouvoir exporter les mêmes données affichées sur mon formulaire dans une feuille sur Excel 2003.

J'ai essayé le code suivant:

Code :

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

1
2
3
4
5
6
7
8
Private Sub CMDExportDonnees_Click()
 
        Dim SQL_exp As String
        SQL_exp = "SELECT * FROM T_Identification WHERE " & filtre
        MsgBox SQL_exp
        DoCmd.TransferSpreadsheet acExport, 8, "SQL_exp", "J:\Base de données\Sambo\TableauCombatSamboSportif.xls"
 
End Sub

C'est la première fois que je dois utiliser ce genre de fonction. Votre aide me sera très précieuse. Merci d'avance.

Sylvain

[madefemere]

Bonjour,

Effectivement TransferSpreadSheet n'accepte que les NOMS de table ou de requête.
Donc il faudrait créer une table ou requête temporaire avant de transférer les données comme par exemple (je propose une requête ici):

Code :

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

1
2
3
4
5
6
7
 
        Dim reqexport As DAO.QueryDef
        Dim SQL_exp As String
        SQL_exp = "SELECT * FROM T_Identification WHERE " & filtre
        Set reqexport = CurrentDb.CreateQueryDef("nouvelreq", SQL_exp)
        DoCmd.TransferSpreadsheet acExport, , "nouvelreq", "J:\Base de données\Sambo\TableauCombatSamboSportif.xls"
        CurrentDb.QueryDefs.Delete "nouvelreq"

Bonne continuation