gestion des dates

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:

---

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:

---

1 2	d = avril & Format(Date, "yyyy")

---

à la place de

Code:

---

1 2	d = avril & yyyy

---

mais j'ai le même résultat (Rien à l'exécution)


Quelqu'un pourrait m'aider?

Merci

As-tu testé

Code:

---

d = "avril" & Format(Date, "yyyy")

---

?

Bonjour,

d étant de toutes manières une variable string, il ne faut pas la mettre entre guillemets lorsque l'on s'y réfère ensuite !

ceci, donc :

Code:

---

1 2 3

If FeuilleExiste(ThisWorkbook, "d") Then   Sheets("d").Activate

---

est pour le moins curieux ... et rechercherait sur "d" et non sur la valeur de la variable d !!!!

Je viens de tester avec "avril" et çà merche

Merci beaucoup
@ bientôt