Nom de feuille et format date

Bonjour
sur xl 2003

J'ai un classeur contenant un nombre variable de feuilles.
Certaines d'entre elles ont un nom correspondant à une date à ce format
là : "dd-mmm-yy".
Ma question :
Comment relever l'index de ces feuilles particulières?
J'en suis à ce code là qui ne fonctionne pas bien évidement:

Sub testSiFeuilleEstDate()
Dim sht As Worksheet
For Each sht In Worksheets
If Format(sht, "dd-mmm-yy") Then
MsgBox sht.Index
End If
Next sht
End Sub

Robert

Bonjour
sur xl 2003

J'ai un classeur contenant un nombre variable de feuilles.
Certaines d'entre elles ont un nom correspondant à une date à ce
format là : "dd-mmm-yy".
Ma question :
Comment relever l'index de ces feuilles particulières?
J'en suis à ce code là qui ne fonctionne pas bien évidement:

Sub testSiFeuilleEstDate()
Dim sht As Worksheet
For Each sht In Worksheets
If Format(sht, "dd-mmm-yy") Then
MsgBox sht.Index
End If
Next sht
End Sub

Robert

Bonjour Robert,

Une proposition :

Sub testSiFeuilleEstDate()
For Each sh In ActiveWorkbook.Sheets
If IsDate(sh.Name) Then MsgBox sh.Name
Next sh
End Sub

Bon dimanche

Rai