Format date VBA MACRO

[wrap food]

Bonjour

je souhaiterais un peu d'aide ...

j'ai une macro ( ci-dessous) dans laquelle je crée une copie de la feuille active et lui donne le nom en utilisant des éléments situés dans des cellules de cette feuille.

Mon problème est que j'ai un ces éléments ("A1") qui est une date et je n'arrive pas à le mettre au bon format AA-MM-JJ .

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Range("A1") &" "& Range("B2") &" "& Range("C5") & ".xls"

Pourriez vous m'aider

Par avance merci

 

[fanfan38]

Re : Format date VBA MACRO

Bonjour
mavar = Right(Year(Range("a1").Value), 2) & "-" & Month(Range("a1").Value) & "-" & Day(Range("a1").Value)
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & mavar &" "& Range("B2") &" "& Range("C5") & ".xls"

A+ François

 

[TooFatBoy]

Re : Format date VBA MACRO

Bonjour,

Peut-être aussi ceci :
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Range("A1"), "yy-mm-dd") & " " & Range("B2") & " " & Range("C5") & ".xls"