Bonjour Chris,
Le fichier manque.
Sinon, en vitesse.
Mettons que MaDate=InputBox("Entrez la date")
Alors :
LeMois = Month (MaDate)
Annee = Year (MaDate)
A condition bien sûr que MaDate soit bien au format date.
On peut s'en assurer avec un Dim MaDate as Date.
Sinon, pour le nom de feuille, je crains bien qu'il ne te faille (hé ! hé ! faille <-> gros Bill. Rigolo non ! Bon allez, je disgresse, là) oublier le "/".
S'il ne te faut que le mois et l'année, pourquoi ne pas l'écrire en toute lettre.
NomFeuille = Format(LeMois, "mmmm") & " " & Format(Annee, "yyyy")
Je n'ai pas testé, mais à peut de chose près, ça devrait le faire.
En espérant que cela te dépanne.
Abel.