Sélectionner une feuille avec un nom variable

Bonjour,

Voila je cherche a importer un fichier. J'appelle donc mon fichier, je l'ouvre et je veux sélectionner la feuille à importer.
Mon problème c'est que le nom de la feuille contient la date du jour. Donc le nom change tout le temps.
Idem pour le fichier, mais le fichier je suis arrivée à le gérer avec un étoile par contre pour la feuille ca ne marche pas.
Mon fichier et ma feuille s'appelle toto_20142702
Voici mon code:

Set wbdest = ActiveWorkbook
ActiveSheet.Cells.Clear
FileToOpen = Application _
  .GetOpenFilename("toto (toto*), toto*")

If FileToOpen = False Then
    Close #1
    Exit Sub
End If
        
wb = Right$(FileToOpen, Len(FileToOpen) - InStr(FileToOpen, "toto*") + 1)

'ouvre le fichier actuel à importer
Set wbsource = Workbooks.Open(wb)
'sélectionne la feuille de données à importer
Set ws = wbsource.Sheets("toto*")

Le fichier à importer aucun souci, il traduit le "*", par contre pour sélectionner la feuille la ligne suivante bloque:
Set ws = wbsource.Sheets("toto*")

Comment faire?

Merci de votre aide,