Macro ouvre onglet mois

[megno]

Bonjour,

Je souhaiterais réaliser une macro qui ouvre l'onglet dans un autre fichier pour y coller des cellules.
Le souci est que les noms des onglets à ouvrir sont des mois et qu'encore une fois je galère avec les formats date sur VBA.

Voici mon code :

Sheets("2010").Select
Range("B1:J25").Select
Selection.Copy
Workbooks.OpenText (Sheets("CRU").Cells(18, 42).Value)
nom = ActiveWorkbook.Name
Dim onglet As String
onglet = MonthName(DatePart("m", AP19))
Windows(nom).Activate
Sheets(onglet).Activate
Range("A1").Paste


ça coince au niveau de l'onglet qu'il ne retrouve pas dans l'autre fichier.
En AP19 j'ai Texte(AC1;"mmmm") avec AC1= Juin-10 en format "mmmm-aa"
J'aimerai donc qu'il m'ouvre l'onglet juin dans l'autre fichier, en vain...

Merci de vos réponses