Discussion :

[ninette24]

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

[ouskel'n'or]

As-tu testé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

?

[ucfoutu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!!

[ninette24]

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

Merci beaucoup
@ bientôt