Erreur fonction Search

Bonjour

Je veux récupérer le 1er mot du nom du cfichier en cours. Soit à la rencontre du 1er espace, soit à la rencontre du .

Si ce nom n'a pas d'espace (exemple fichier.xls), le code si dessous renvoi une erreur 1004, à priori #Value!

Comment je peux tester cette erreur ?

    firstname = Left(ThisWorkbook.Name, Application.WorksheetFunction.Search(" ", ThisWorkbook.Name, 1) - 1)

Merci d'avance

Bonjour,

Essaie avec

firstname = Split(Split(ThisWorkbook.Name, ".")(0), " ")(0)

A+

Bonjour,

As-tu essayé la fonction Find à la place de Search ...?

Bonjour

Sub test()
twb = ThisWorkbook.Name
firstname = Left(twb, InStr(Replace(twb, " ", "."), ".") - 1)
End Sub

Merci à tous

J'ai l'embarras du choix

Parfait