Microsoft 365 VBA : récupérer la date

[VBA_dev_Anne_Marie]

Bonjour,

J'aurais une petite question qui peut paraître simple : pour nommer le fichier j'ajoute la date en faisant :
NomFichier = "VBA_EXPORTATIONS_" & Format(Date, "yyyymmdd") & ".xlsx"

Je me demande comment on peut nommer le fichier comme VBA_EXPORTATIONS_JJ_MM_YYYY.xlsx ?

Merci !

 

[scraper]

Bonjour Anne Marie
En vba la commande pour renommer est :
Name ancien_nom, nouveau_nom

Par Contre mieux vaut mettre la date devant le nom et pas au format JJ_MM_AAAA (au passage pas YYYY) pour profiter du tri de l'explorateur de fichiers par date avec l'année an premier AAAA_MM_JJ.

 

[job75]

Bonjour le forum,

Par Contre mieux vaut mettre la date devant le nom et pas au format JJ_MM_AAAA (au passage pas YYYY)

Pas bien clair : en VBA on n'utilise pas "AAAA" mais "YYYY" !

A+

 

[Nicolas JACQUIN]

Bonjour,

J'aurais une petite question qui peut paraître simple : pour nommer le fichier j'ajoute la date en faisant :
NomFichier = "VBA_EXPORTATIONS_" & Format(Date, "yyyymmdd") & ".xlsx"

Je me demande comment on peut nommer le fichier comme VBA_EXPORTATIONS_JJ_MM_YYYY.xlsx ?

Merci !

Bonjour à tous,

Sub EnregistrerAvecDate()
    Dim nomFichier As String
    Dim chemin As String
    Dim nomBase As String
    Dim dateDuJour As String

    dateDuJour = Format(Date, "dd-mm-yyyy")

    ' Chemin d'enregistrement (tu peux le personnaliser)
    chemin = ThisWorkbook.Path

    nomBase = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)

    nomFichier = chemin & "\" & nomBase & "_" & dateDuJour & ".xlsx"

    ThisWorkbook.SaveAs Filename:=nomFichier, FileFormat:=xlOpenXMLWorkbook

    MsgBox "Fichier enregistré sous : " & nomFichier
End Sub

• Explications :​

  • ThisWorkbook.Name : nom du fichier actuel. ' A adapter

Bonne continuation

Nicolas

 

[AtTheOne]

bonjour à toutes & à tous, bonjour @VBA_dev_Anne_Marie

comment on peut nommer le fichier comme VBA_EXPORTATIONS_JJ_MM_YYYY.xlsx ?

comme ça :

Nom_de_fichier = "VBA_EXPORTATION_" & Format(Date, "dd_mm_yyyy") & ".xlsx"

ce qui donne Nom_de_fichier ="VBA_EXPORTATION_07_05_2025.xlsx"
à bientôt

 

[job75]

Moi j'ai compris qu'Anne Marie a un fichier dont le nom se termine par une date au format "dd_mm_yyyy".

Et elle veut le renommer avec la même date au format "yyyymmdd".

On peut rechercher le fichier par GetOpenFileName :

Sub Renommer()
Dim fichier As Variant, chemin$, dat$, ext$
fichier = Application.GetOpenFilename("Fichiers .xlsx (*.xlsx),*.xlsx")
If fichier = False Then Exit Sub
chemin = Left(fichier, InStrRev(fichier, "\"))
dat = Replace(Left(Right(fichier, 15), 10), "_", "/")
ext = Right(fichier, 5)
If IsDate(dat) Then Name fichier As chemin & "VBA_EXPORTATIONS_" & Format(CDate(dat), "yyyymmdd") & ext
End Sub

 

[AtTheOne]

re
Bonjour @job75

Moi j'ai compris qu'Anne Marie a un fichier dont le nom se termine par une date au format "dd_mm_yyyy".

Et elle veut le renommer avec la même date au format "yyyymmdd".

Et moi, qu'elle souhaitait simplement le nommé "VBA_EXPORTATIONS_JJ_MM_YYYY.xlsx" plutôt que "VBA_EXPORTATIONS_YYYYMMDD.xlsx"

J'aurais une petite question qui peut paraître simple : pour nommer le fichier j'ajoute la date en faisant :
NomFichier = "VBA_EXPORTATIONS_" & Format(Date, "yyyymmdd") & ".xlsx"

Je me demande comment on peut nommer le fichier comme VBA_EXPORTATIONS_JJ_MM_YYYY.xlsx ?

Comme ça elle a plusieurs solutions dont la tienne plus élaborée ...

À bientôt

 

[AtTheOne]

re,
Ce n'est pas bien grave 😉, elle nous précisera peut-être son besoin réel ...
À +

 

[job75]

Ce qui m'a guidé c'est le titre du fil VBA : récupérer la date.

L'ami scraper a compris comme moi qu'il fallait renommer le fichier.
.

 

[VBA_dev_Anne_Marie]

Bonjour à tous,

Sub EnregistrerAvecDate()
    Dim nomFichier As String
    Dim chemin As String
    Dim nomBase As String
    Dim dateDuJour As String

    dateDuJour = Format(Date, "dd-mm-yyyy")

    ' Chemin d'enregistrement (tu peux le personnaliser)
    chemin = ThisWorkbook.Path

    nomBase = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)

    nomFichier = chemin & "\" & nomBase & "_" & dateDuJour & ".xlsx"

    ThisWorkbook.SaveAs Filename:=nomFichier, FileFormat:=xlOpenXMLWorkbook

    MsgBox "Fichier enregistré sous : " & nomFichier
End Sub

• Explications :​

  • ThisWorkbook.Name : nom du fichier actuel. ' A adapter

Bonne continuation

Nicolas

Merci !