Re : Problème avec format de date
Bonsour®
selon l'exemple
la date est 10/12/2011 (10 déc 2011)
attention sera interprétée via VBA comme MM/DD/YYYY (12 octobre 2011)
attention également le format devra toujour etre le même en A1 (jj/mm/aaaa)
erreur si : "le nom du fichier 2/8/2011"
Sub Macro1()
Dim datefichier As String, Nomfichier As String
Nomfichier = Right([A1].Text, 10)
[a2] = DateSerial(Right(Nomfichier, 4), Mid(Nomfichier, 4, 2), Left(Nomfichier, 2))
[a2].NumberFormat = "[$-40C]dd-mmm-yyyy"
datefichier = [a2].Text
With ThisWorkbook
.Activate
Sheets.Add After:=Sheets(Sheets.Count)
End With
Sheets(Sheets.Count).Name = datefichier
End Sub
il conviendra egalement de s'assurer que le nom n'est pas déja utilisé !!!