Problème format date à partir d'un nom de feuille

Bonjour le forum.

Après avoir retourné le pb dans presque tous les sens je ne parviens pas à obtenir un format date "jj/mm/yyyy".

La première page fonctionne bien mais la 2e ne fonctionne que sur ce format "jj-mm-yyy".

Pourquoi ?

Ci-dessous mon code dans THISWORKBOOK

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With ActiveSheet
    .Range("B1").Value = ActiveSheet.Name
    Range("B1").NumberFormat = "mm/dd/yyyy"
End With
End Sub

Sinon existe-t-il une formaule EXCEL simple du style =STXT("Nom_feuille") plutôt que de passer par vba ?

Merci de votre aide

Bonjour,

as tu essayé ce code :

=STXT("'06-09-2013'!";2;10)

?

(solution alternative à VBA...)

Salut,

Voici un code que tu peux essayer :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With ActiveSheet
   .Range("B1") = CDate(Right(.Name, 4) & "/" & Mid(.Name, 4, 2) & "/" & Left(.Name, 2))
End With
End Sub

Cordialement.