Sauvegarde avec Nom fichier iteratif.

[F2T]

Bonjour,

je chercherais a renseigner un nom de fichier iteratif pour une sauvegarde quoditienne automatique.

Sub Save()
'
ChDir "\\Gx270desktop\sauvegarde\TB"
ActiveWorkbook.SaveAs Filename:= _
"\\Gx270desktop\sauvegarde\TB\TB & DATE.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

Cependant le TB & DATE ne fonctionne pas, il m'ecrit TB & DATE. Alors que je voudrais qu'il ecrivent TB + la date du jour:

ex : TB14102010 pour ajourd'hui.

Est ce possible?

Merci pour l'aide.

 

[Pierrot93]

Re : Sauvegarde avec Nom fichier iteratif.

Bonjour,

essaye ainsi :

ActiveWorkbook.SaveAs Filename:= _
    "\\Gx270desktop\sauvegarde\TB\TB" & Format(Date, "ddmmyyyy") & ".xlsm", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

bon après midi
@+

 

[F2T]

Re : Sauvegarde avec Nom fichier iteratif.

Bonjour Pierrot,

merci.