nom de fichier avec une date

[foucher maurice]

je produis chaque nsemaine un fichier de même nature. je le produis à l'aide d'une macro. je cherche à faire en sorte qu'à la fin le fichier se sauvegarde et comporte outre le nom du fichier, la date du jour.
de cette façon le nouveau fichier n'écrase pas le précédent. y-a-t-il une solution? merci

 

[_Thierry]

Bonsoir Maurice,

Bonsoir le Forum !



Tu trouves pas que ton message est un peu rabougri, ça rend de suite bien plus sympathique, une ptit bonjour et quelques sauts de lignes... M'enfin...

Sinon et bien il suffit de faire comme ceci :

Sub SaveAsWithDate()
Dim MonChemin As String, MonFichier As String

With ThisWorkbook
    MonChemin = .Path 'ou alors en dûr 'C:/mes documents/mes fichiers/'
    MonFichier = Left(.Name, Len(.Name) - 4)
    .SaveAs MonChemin & '/' & MonFichier & Format(Date, '-YYYY-MM-DD')
End With

End Sub

Bonne Soirée (nuit)
@+Thierry

Message édité par: _Thierry, à: 29/03/2005 00:18