Discussion :

[laurent.w]

bonjour, voilà j'envoie sous format csv le resultat d'une requete chaque jour en debut de connexion, je voudrais archiver les données en mettant la date du jour et/ou l'heure dans le nom du fichier envoyé comment puis je faire. voici le bout de code qui fonctionne

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
'-----------------------------------------------------------
'  Check if  datum of dtafrais  are already sent
'-----------------------------------------------------------
Public Function Application_envoi_frais()
 
    Dim dbs         As Database
    Dim rds         As Recordset
    Dim strsql      As String
 
 
 
 
    strsql = "SELECT * FROM dtaFrais WHERE (((DateDiff('d',[incidentdate],Now()))>=1)and flag= no);"
 
 
    Set dbs = CurrentDb
    Set rds = dbs.OpenRecordset(strsql, dbOpenSnapshot)
 
    ''' Stop if the record doesn't exist anymore
    If rds.EOF And rds.BOF Then
        rds.Close
        Set rds = Nothing
        dbs.Close
        Set dbs = Nothing
 
        Exit Function
    Else
    DoCmd.TransferText acExportDelim, "", "qdfsend", "u:\document.csv", False
    'elimine le message d'avertissement de l'update
    DoCmd.SetWarnings False
    'execute l'update sous certaines conditions
    DoCmd.RunSQL "UPDATE dtaFrais SET dtaFrais.flag = Yes WHERE (((DateDiff('d',[incidentdate],Now()))>=1) And flag=No);"
 
    End If
 
    ''' Open the recordset
    'Set dbs = CurrentDb
    'Set rdsfiles = dbs.OpenRecordset(strsql, dbOpenSnapshot)
 
    Set rds = Nothing
    'close and reset
    dbs.Close
    Set dbs = Nothing
 
End Function

c'est certainemlent là dedans que je dois modifié
DoCmd.TransferText acExportDelim, "", "qdfsend", "u:\document.csv", False

merci d'avance pour votre aide

[laurent.w]

personne n'a d'idée

[Invité]

Salut

Au lieu de mettre directement document.csv tu le crée à partir d'une concaténation

Code :

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

1
2
3
 
dim strFichier as string
strFichier = "document" & "_" & date & "_" & time & ".csv"

et c'est cette variable que tu mets à la place de ton fichier document.csv

Starec

[laurent.w]

apperement çà devrait marcher, le pb est que le système window n'accepte pas les / . comment peut on les enlever ou simplement changer de format

[laurent.w]

j'ai change le format c'est bon, merci