Récuperer le mois en VBA

Bonjour,

Peut être fatigué mais là je cale sur un truc qui doit être simple à trouver.

J'ai des fichiers mensuels, ils portent tous ce nom :

Magasin 01-2023.xls

Magasin 02-2023.xls

Magasin 03-2023.xls

etc..

Je voudrais afficher dans la cellule B6 le mois du nom du fichier

exemple pour le fichier que je sélectionne via une macro

Je voudrais qu'il m'affiche pour le fichier Magasin 01-2023.xls ==> Janvier

Je voudrais qu'il m'affiche pour le fichier Magasin 02-2023.xls ==> Février

etc..

Merci pour votre aide.

 Fichier = Right(fichierXLS, Len(fichierXLS) - InStrRev(fichierXLS, "\"))
 Ms = Replace(Fichier, "Magasin ", "")
 Ms = Left(Ms, 2)
 Ms = Split(Ms, ".")(0)
 Range("B5").NumberFormat = "mm"
 Range("B5").Value = Ms

C'est bon je viens de trouver, je vais laisser la solution au cas ou ..

 Fichier = Right(fichierXLS, Len(fichierXLS) - InStrRev(fichierXLS, "\"))
 Ms = Replace(Fichier, "Magasin ", "")
 Ms = Split(Ms, ".")(0)
 Ms = Format(Ms, "mmmm")

 Range("B5").Value = Ms

bonjour Jefekoi, un essai

     supprimé comme vous avez trouvé une meilleur solution