Variable date dans le nom de fichier

coffeez

XLDnaute Nouveau
[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
 
Dernière édition:

MJ13

XLDnaute Barbatruc
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

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
312 836
Messages
2 092 656
Membres
105 479
dernier inscrit
chaussadas.renaud