Codifier le nom d'un onglet pour l'ouvrir

Bonjour,

Je n'arrive pas à codifier le nom d'un onglet pour ouvrir la feuille.

Le format du Mois "nov" devrait être nov et doc impossible d'ouvrir l'onglet "nov 18"

Pouvez vous m'aider?

Sub Onglet()

'Date_Recap = 12/11/2018 est issue d'une autre sub()

Mois = (Month(Date_Recap))

An = Year(Date_Recap)

An = Val(Format(Right(An, 2), yy))

If Mois = "01" Then Mois = "jan"

If Mois = "02" Then Mois = "fev"

If Mois = "03" Then Mois = "mar"

If Mois = "04" Then Mois = "avr"

If Mois = "05" Then Mois = "mai"

If Mois = "06" Then Mois = "juin"

If Mois = "07" Then Mois = "juill"

If Mois = "08" Then Mois = "aout"

If Mois = "09" Then Mois = "sep"

If Mois = "10" Then Mois = "oct"

If Mois = "11" Then Mois = "nov"

If Mois = "12" Then Mois = "dec"

Sheets(Mois & "" & An).Select

'il faudrait obtenir Sheets("nov 18").Select

End Sub

MERCI pour votre aide!!

Bonjour,

essaie ceci (en modifiant la variable Date) :

Sub Onglet()
Dim iMois As Integer, sAn As String, sMois As String
    iMois = Month(Date)
    sAn = Right(Year(Date), 2)
    sMois = Choose(iMois, "jan", "fev", "mar", "avr", "mai", "juin", "juill", "aout", "sep", "oct", "nov", "dec")
    Worksheets(sMois & " " & sAn).Select
End Sub

Bonjour

et plus simple encore

Sheets(Format(Date_Recap, "mmm yy")).Select

cela devrait suffire

Bjr Jean-Eric

un p'tit essai

Un GRAND MERCI pour votre réactivité. Ça marche très bien.

Bravo à tous, ce forum est formidable.