Discussion :

[Jeanvaljean44]

Salut le forum

Dans une macro j'ouvre un fichier par la méthode getobject, et je souhaite vérifier si dans la feuille "client" le filtreautomatique est actif, et si oui je souhaite le désactiver???

Voici le code auquel je pensais :

Code :

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

1
2
3
4
Set DonneesAdministratives = GetObject("R:\DonneesClients\DonneesAdministratives\DonneesAdministratives.xlsx")
If DonneesAdministratives.Worksheets("client").AutoFilterMode = True Then  
   DonneesAdministratives.Worksheets("client").AutoFilterMode = False 
End If

Mais ça plantouille

@+ Jean

[ucfoutu]

Bopnjour,

Lisons l'Aide VBA, qui dit :

True if the AutoFilter drop-down arrows are currently displayed on the sheet. This property is independent of the FilterMode property. Read/write Boolean.

Remarks

This property returns True if the drop-down arrows are currently displayed. You can set this property to False to remove the arrows, but you cannot set it to True. Use the AutoFilter method to filter a list and display the drop-down arrows.

Une fois fixé à False (AutofilterMode = False), les flèches disparaissent...
Pour les faire réapparaître, il faut définir un range et utiliser la méthode AutoFilter pour les rétablir (pas passer à True le AutoFilterMode) ...

[Jeanvaljean44]

Ce que je ne comprends pas c'est que j'ai utilisé le code ci-après :

Code :

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

1
2
3
4
Workbooks("EncoursProduction.xlsm").Worksheets("EncoursAtelier").Activate   'Activation feuille EncoursAtelier
If Worksheets("EncoursAtelier").AutoFilterMode = True Then                  'Test si filtre est activé
   Worksheets("EncoursAtelier").AutoFilterMode = False                      'Si oui désactivation
End If

et ça fonctionne!

Je souhaite maintenant le transcrire pour un fichier excel ouvert par la méthode getobject

[fring]

Bonjour,

Teste ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim Wbk As Workbook, Wsh As Worksheet
 
Set Wbk = Workbooks.Open(Filename:="R:\DonneesClients\DonneesAdministratives\DonneesAdministratives.xlsx")
Set Wsh = Wbk.Sheets("client")
 
If Wsh.AutoFilterMode = True Then Wsh.AutoFilterMode = False
 
End Sub

[Jeanvaljean44]

Ce code fonctionne pas de soucis....

Mais ce que j'essaie de faire, consiste à tester autofilter sur un fichier qui n'est pas ouvert : d'où l'utilisation de getobject....

[Jeanvaljean44]

Par ailleurs le test fonctionne bien...ce qui ne fonctionne pas c'est :

Code :

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

Worksheets("EncoursAtelier").AutoFilterMode = False

C'est à ce moment là que ma macro plante !!!

[fring]

Ce code fonctionne pas de soucis....

Mais ce que j'essaie de faire, consiste à tester autofilter sur un fichier qui n'est pas ouvert : d'où l'utilisation de getobject....

Je ne pense pas que cela est réalisable de manipuler l'autofiltre dans un fichier fermé au même titre qu'on ne peut pas manipuler des objets.