désactivation des filtres d'un autre classeur ouvert par macro

[IRMUSINAGE]

Bonsoir à tous,
Voila je post deux fichiers ce soir,(a coller sur c: ou modifier le chemin)
je ne vois pas ce qui ne fonctionne pas

le premier fichier (macro)contient 3 filtres et une macro
le second (filtre) contient 3 filtres

quand j'ouvre le fichier macro et que je lance celle ci,
elle désactive les filtres sans les supprimer, (jusqu'içi tout va bien)
elle ouvre le fichier filtre (içi oussi)
et elle devrait désactiver les filtres du fichier filtre (et la non ???)(j'aurai du choisir un autre nom j'avoue c'est pas trés clair)

POURQUOI ?

Si quelqu'un a une idée ou mieux une solution !!!
Merci a vous tous

 

[Gareth]

Re : désactivation des filtres d'un autre classeur ouvert par macro

Bonsoir,

Une solution utilisant AutoFilterMode

Public Sub filtre()
Set MonName = ThisWorkbook
If MonName.Sheets(1).AutoFilterMode Then MonName.Sheets(1).AutoFilterMode = False
Workbooks.Open ThisWorkbook.Path & "\filtre.xlsx"
Set MonFiltre = Workbooks("filtre.xlsx")
If MonFiltre.Sheets(1).AutoFilterMode Then MonFiltre.Sheets(1).AutoFilterMode = False
MonFiltre.Sheets(1).Range("a5").Select
End Sub

 

[IRMUSINAGE]

Re : désactivation des filtres d'un autre classeur ouvert par macro

Bonjour GARETH,
et merci de te pencher sur mon problème,
mais la macro que tu m'a fournit supprime les filtres,
or moi je veux juste les désactiver.
Merci

 

[MJ13]

Re : désactivation des filtres d'un autre classeur ouvert par macro

Bonjour à tous

j'aurai du choisir un autre nom j'avoue c'est pas trés clair

Franchement, ton problème n'est pas clair . Le mieux serait d'expliquer ce que tu veux sur un seul fichier dans un premier temps.

 

[simraill]

Re : désactivation des filtres d'un autre classeur ouvert par macro

Bonjour tout le monde,
Qu'entends tu par "désactiver"? Tu veux juste les réinitialiser?

Si c'est ça, reprends le code de Gareth et après

MonName.Sheets(1).AutoFilterMode = false

rajoute

MonName.Sheets(1).AutoFilterMode

, ce qui remettra les filtres.

 

[IRMUSINAGE]

Re : désactivation des filtres d'un autre classeur ouvert par macro

Bonsoir et merci à tous pour votre aide,

Je souhaite juste à partir d'un fichier exécuté une macro
qui ouvre un autre fichier qui contient des filtres
Et réinitialisez les filtres à zéro
Toutes vos macros fonctionnent sur le premier fichier
mais pas sur le fichier ouvert par la macro

J'espère avoir été clair merci à vous tous

 

[GCFRG]

Re : désactivation des filtres d'un autre classeur ouvert par macro

Salut

Esayes ceci
With Workbooks("Nom de ton classeur")

ton code

end with

 

[Gareth]

Re : désactivation des filtres d'un autre classeur ouvert par macro

Bonsoir,

Je n'avais pas bien compris la question.
Ce code semble mieux correspondre à ce que tu veux faire.

Public Sub filtre()
Set MonName = ThisWorkbook
If MonName.Sheets(1).FilterMode Then MonName.Sheets(1).ShowAllData
Workbooks.Open ThisWorkbook.Path & "\filtre.xlsx"
Set MonFiltre = Workbooks("filtre.xlsx")
If MonFiltre.Sheets(1).FilterMode Then MonFiltre.Sheets(1).ShowAllData
MonFiltre.Sheets(1).Range("a5").Select
End Sub

FilterMode permet d'eviter d'utiliser On Error Resume Next

 

[IRMUSINAGE]

Re : désactivation des filtres d'un autre classeur ouvert par macro

Merci GARETH

Tout fonctionne très bien un grand merci a tout le monde.
et désolé pour le retard.