remplacer nom de fichier par la date du jour

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

philmaure

XLDnaute Impliqué
bonjour à tous,
j'ai un fichier qui se nomme Adhérence à chaud. Je souhaite lorsque je l'enregistre en fin de journée que le fichier soit nommé à la date du jour.
Ci dessous ma macro actuelle :

Sub Ferme1()
'Workbooks("Adhérence à chaud.xls").Close savechanges:=True
ChDir "P:\STAT\Partage\Suivi\Archives"
Workbooks("Adhérence à chaud.xls").SaveAs Filename:="P:\STAT\Partage\Suivi\Archives\Adhérence à chaud.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
End Sub

Merci pour votre solution
Cdlt
Philippe
 
Re : remplacer nom de fichier par la date du jour

Bonjour,

essaye peut être ceci :
Code:
Workbooks("Adhérence à chaud.xls").SaveAs Filename:="P:\STAT\Partage\Suivi\Archives\Adhérence à chaud " _
    & Format(Date, "ddmmyyyy"), FileFormat:=xlNormal
bonne journée
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
545
Compte Supprimé 979
C
Retour