Variable date dans le nom de fichier

[coffeez]

[Résolu] Variable date dans le nom de fichier

Bonjour à tous,

Je souhaite avec une macro enregistrer un fichier excel sous le nom de la date du jour qui est contenue dans une cellule (A1 dans l'exemple).

Voici le code actuel :

Sub rec()

nomfic = "H:\XXXXXX\Coffeez\" & Range("D3") & ".xls"

ActiveWorkbook.SaveAs FileName:=nomfic

End Sub

Or, cela pose problème car la date du jour est toujours de la forme JJ\MM (quelque soit le format de la cellule) et que windows n'accepte pas les noms de fichier avec des "\ ".

Comment pourrais-je placer dans la varialble une date de la forme JJ-MOIS-ANNEE (par exemple)

Merci d'avance pour vos réponses

 

[MJ13]

Re : Variable date dans le nom de fichier

Bonjour Coffez

A adapter ce type de code:

nomong = LieuT & " " & NomAct & Format(Day(Now), " 00") & Format(Month(Now), " 00") & Format(Year(Now), " 00") & " " & Format(Now, " hh""H""mm""M""ss") & " " & NomLecteurs

Donc idem pour le nom de fichier.

 

[coffeez]

Re : Variable date dans le nom de fichier

ça marche, voici le nouveau code qui ne fait plus appel à une cellule "date" de la feuille :

Sub rec()

nomong = Format(Day(Now), " 00") & Format(Month(Now), " 00") & Format(Year(Now), " 00")

nomfic = "H:\XXXXX\Coffeez\" & "XXXX" & nomong & ".xls"

ActiveWorkbook.SaveAs FileName:=nomfic

End Sub

Merci

 

[Pierrot93]

Re : Variable date dans le nom de fichier

Bonjour,

une autre solution ainsi :

nomfic = "H:\XXXXXX\Coffeez\" & Format(Date, "dd mm yyyy") & ".xls"
ActiveWorkbook.SaveAs Filename:=nomfic

bonne journée
@+