Bonjour à tous

J'exporte les data de mon agenda en csv pour les importer ensuite dans google agenda.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub btn_TransfertCSV_Click()
Dim strFilter As String
Dim strInputFileName As String
 
 
'Ouvre une boite de dialogue pour demander nom et emplacement du CSV par la fonction strSaveFileName
strFilter = ahtAddFilterItem(strFilter, "Csv Files (*.csv)", "*.csv")
strSaveFileName = ahtCommonFileOpenSave(OpenFile:=False, Filter:=strFilter, Flags:=ahtOFN_OVERWRITEPROMPT Or ahtOFN_READONLY)
DoCmd.TransferText acExportDelim, "Export_CSV", Me.Recordset, strSaveFileName, True  
 
 
End Sub
Je filtre par des cases à cocher dans l'en tête du formulaire les critères pour l'export. J'aimerai n'exporter que le résultat de ce filtrage. Dois-je passer par une table temporaire que je crée puis détruit ? Bien sûr le "Me.recordset" ci dessus ne fonctionne pas.
Merci d'avance pour vos suggestions.