Problème de syntaxe en VBA sur Filter

Salut à tous, je rencontre un soucis pour filtrer un form sur ouverture :
J'ai un form avec un champs "MaxDeSaison" de la forme 20132014 qui s'affiche 2013/2014, sur lequel je veux filtrer mon form.
J'ai donc mis le code suivant sur ouverture du form :

Code:

---

1 2 3 4

Private Sub Form_Open(Cancel As Integer) Me.Filter = "[MaxDeSaison] = ' 20132014' " Me.FilterOn = True End Sub

---

Cela fonctionne bien et me renvoie les enregistrements correspondant à la saison 2013/2014 (ce code était fait pour tester, le vrai filtre doit se faire par rapport à l'année actuelle).
Je remplace donc dans mon code : "20132014" par "Année(Maintenant()-605)& Année(Maintenant()-240)"
cela ne me renvoie aucun enregistrement. pourtant, la formule renvoie bien 20132014 (le basculement de ma saison se fait au 31 aout), voici mon code

Code:

---

1 2 3 4

Private Sub Form_Open(Cancel As Integer) Me.Filter = "[MaxDeSaison] = 'Année(Maintenant()-605)& Année(Maintenant()-240)'" Me.FilterOn = True End Sub

---

Et cela ne renvoie aucun enregistrement, je ne vois pourtant pas d'erreur.

Bonjour,

Si tu filtre avec :

Code:

---

"[MaxDeSaison] = 'Année(Maintenant()-605)& Année(Maintenant()-240)'"

---

Le filtre ne sera pas :

Code:

---

"[MaxDeSaison] = '20132014'"

---

mais bel est bien

Code:

---

"[MaxDeSaison] = 'Année(Maintenant()-605)& Année(Maintenant()-240)'"

---

En effet si l'expression :

Code:

---

'20132014'

---

est exprimée comme telle alors

Code:

---

'Année(Maintenant()-605)& Année(Maintenant()-240)'

---

l'est également.

Il faut plutôt faire :

Code:

---

"[MaxDeSaison] = '" & Année(Maintenant()-605) & Année(Maintenant()-240) & "'"

---

Cordialement,

Salut, merci Loufab pour ta réponse, j'ai essayé ce code mais il me renvoie une erreur de compilation : Sub ou fonction non définie et il me surligne "Private Sub Form_Open(Cancel As Integer)".
Je ne vois pas pourquoi car cela n'a pas changé la Sub. Il me surligne aussi "Maintenant" (le premier) qui ne devrait pas poser de problème.

" Sub ou fonction non définie " c'est très clair ! VBA t'indique que tes fonctions lui sont inconnues.

En VBA on utilise QUE l'anglais, jamais d'expression en Français.

Code:

---

1 2 3

Maintenant = now Année = year

---

F2 t'indique ce qu'il connaît. Tout ce qui n'est pas dans la liste lui est inconnu.

OK, ça marche super. Merci Loufab !
Pourtant, il me semblait avoir déjà utilisé des mots français dans des modules mais mes souvenirs doivent être erronés.
En tout cas, c'est reglé, merci encore.
Mince, je ne trouve plus le bouton "résolu", une soirée entre potes, j'ai plus les yeux en face des trous.