Export en CSV du recordset d'un formulaire
Bonjour à tous
J'exporte les data de mon agenda en csv pour les importer ensuite dans google agenda.
Code:
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.