[VBA-E] Probleme avec filtre

Bonjour,

je dois coder une macro sous Excel qui permette sur un fichier que je recois tous les jours d'un fournisseur de faire un filtre sur les clients europeens (appele EURT )
J'ai donc fais le code suivant:

Code:

---

1 2	Rows("5:5").AutoFilter Field:=4, Criteria1:="EURT"

---

Un probleme intervient des lors que le fichier n'a pas deja en ligne 5 un autofilter.

Je pourrai resoudre ce probleme en faisant le code suivant :

Code:

---

1 2 3

Rows("5:5").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:="EURT"

---

Mais le probleme est que ce code ne fonctionne pas des lors que le fichier contient deja en ligne 5 un autofilter.
Je dois eviter aux utilisateurs de verifier la presence eventuel de l'autofilter.

Je me tourne donc vers vous pour me donner un coup de main a trouver l'astuce qui permettrait a la macro de fonctionner quelque soit le cas.

Merci d'avance.

Rajoute la ligne

Code:

---

1 2	ThisWorkbook.Sheets("Feuil1").AutoFilterMode = False

---

avant ton code ... en adaptant ... le nom de la feuille... (ou en utilisant activeSheet..:? )

Tres gentil a toi bbil,
cela fonctionne parfaitement.

Mais en fait c'est parfait lorsque le nom de la feuille est fixe mais il se trouve que que parfois elle change tres legerement.
Je pensais pouvoir jouer sur la position de la feuille a filtrer qui elle reste fixe car je ne sais pas comment ouvrir une feuille qui contient un certain mot dont je suis sur que lui restera.
J'ai tente de me servir des * mais cela ne semble pas marcher.

Code:

---

Sheets("*Order*").Select

---

il est ou ton code .. et comment l'exécute-tu..?