Variable date dans le nom de fichier

coffeez · 18 Juin 2010

[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 :

Code:

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 · 18 Juin 2010

Re : Variable date dans le nom de fichier

Bonjour Coffez

A adapter ce type de code:

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 · 22 Juin 2010

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 :

Code:

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 · 22 Juin 2010

Re : Variable date dans le nom de fichier

Bonjour,

une autre solution ainsi :

Code:

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

bonne journée
@+

Variable date dans le nom de fichier

coffeez

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

coffeez

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Discussions similaires