Bug sur sur l'ouverture d'un fichier incluant une date

Bonjour as tous

j'ai un problème avec la parti de cette macro qui fonctionne très bien quand j'ai que du texte.

mes fichier sont enregistrés comme ceci (STO015-2021-01-04) car excel n'autorise pas ces caractères : / \

En C2 ma date est bien au format ( aaaa-mm-jj) 2021-01-01

Dim Chemin As String
Dim Fichier As String

Chemin = "S:\Supply_Chain\Mylène MAURY\Yellow Belt 2020\rapports auto 2020 - pour histo\rapports STO015F\"
Fichier = "STO015-" & Range("c2").Value & ".xls"

Workbooks.Open Chemin & Fichier

si exécute la macro j'ai le message ci dessous car au lieu mettre "STO015F-2021-01-01.xls " il indique "STO015F-01\01\2021.xls

merci de votre aide

Bonjour,

Le format d'affichage ne veut pas dire le format d'écriture. En C2 si c'est bien une date alors le nom de fichier n'est pas correcte.

Vous devez donc à nouveau décortiquer votre Date pour reconstituer le nom de fichier :

X = Year(Range("C2").Value)
Y = Month(Range("C2").Value)
Z = Day(Range("C2").Value)
Fichier = "STO015-" & X & "-" & Y & "-" & Z & ".xls"

A voir si Z avant Y mois ou jours ?

'ou sur une ligne

Fichier = "STO015-" & Year(Range("C2").Value) & "-" & Month(Range("C2").Value) & "-" & Day(Range("C2").Value) & ".xls"

Edit

Désolé XMenpl, on a posté ensemble

Pas de souci Dan çà me permet de te dire bonjour en même temps

Merci et bonjour à toi ! Xmenpl

Bonjour,

ou formater la date : & Format(Range("C2").Value,"yyyy-mm-dd")
Et comme C2 a l'air d'être au bon format tu peux aussi utiliser & Range("C2").Text
eric

Salut tout le monde,
Bonjour les as,

ou..

Fichier = "STO015-" & Replace(Range("c2").Value,"/","-")

A+

bonjour as tous

merci pour vos réponse, dans lesquelles j'ai trouvé mon Bonheur.

Philippe