Bonjour à tous!!

Voilà je réalise une mcro me permettant d'afficher la feuille nommée

"avril2008" lorsqu'elle existe en 2008

"avril2009" lorsqu'elle existe en 2009

etc......




Mon
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
Function FeuilleExiste(wk As Workbook, stFeuille) As Boolean
 On Error Resume Next
 FeuilleExiste = Not (wk.Sheets(stFeuille) Is Nothing)
End Function
 
Sub auto()
 
 
Dim c As Long, a As Long, b As Long, t As Long
Dim SomA As Long, SomB As Long
Dim CB1 As String, CB2 As String, Code As String
 
Dim d, e, f, g, h, i, j, k, l, m, n, o
 
d = avril & yyyy
 
  If FeuilleExiste(ThisWorkbook, "d") Then
 
Sheets("d").Activate
 
end if 
 
end sub

le problème est qu'il se passe rien à l'exécution

j'ai aussi essayé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
d = avril & Format(Date, "yyyy")

à la place de

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
d = avril & yyyy
mais j'ai le même résultat (Rien à l'exécution)


Quelqu'un pourrait m'aider?

Merci