Discussion :

[jojoboloss]

Bonjour,

J aimerais savoir comment on cree un fichier avec un nom variable, par exemple si je veux sauvegarder un fichier toutes les heures sous:
fichier_3:00:00PM.xls
fichier_4:00:00PM.xls

J ai essaye ca, mais ca ne passe pas:

DoCmd.TransferSpreadsheet acExport, 8, "RO_TRAIN1", "C:\My Documents\EXCEL FILES\RO_TRAIN1" & Trim(Time()) & ".xls", True, ""

merci de votre aide

[patpat390]

J'utilise ce code pour faire un backup d'une base de données
Cela peut peut-être 'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function TFTGestionAtelierPar2heures()
Dim StrDate, StrHeure, NameFile, chemin As String
Dim fs As Object
StrDate = Str(Year(Date) * 10000 + (Month(Date) * 100) + Day(Date))
StrHeure = Str(Hour(Time) * 10000 + (Minute(Time) * 100) + Second(Time))
NameFile = "H:\BACKUPGESTIONATELIER\GESTIONATELIER-" + LTrim(StrDate) + "-" + LTrim(StrHeure) + ".mdb"
chemin = "\\Serveurcentral\hd d serveur\ATELIER\ATELIER2.MDB"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile chemin, NameFile
DoCmd.Quit
End Function

Pat

modération : cafeine,

[marot_r]

remplace le ':' dans le nom du fichier par '_' ou '-'.

A+