Tout défiltrer dans tous les classeurs

Bonjour à tous

j'ai un code pour défiltrer toutes les feuilles d'un classeur :

Sub defiltrer()

On Error Resume Next

For Each Sh In Sheets

Sh.ShowAllData

Next Sh

End Sub

Maintenant j'aimerais qu'en appuyant sur le bouton associé à cette macro, toutes les feuilles de tous les classeurs ouverts ( = tous les fichier xlsx ouverts sur mon ordi) se défiltrent... sachant que les noms des fichiers ouverts sont toujours différents...

Est-il possible donc de commander d'autres fichiers à partir d'une macro contenu dans un fichier excel initial (qui servirait de "poste de controle" pour tous mes xls que j'ouvre en parallèle) ??

merci !

PS : je suis sous Excel 2007

Bonjour

A tester

Sub defiltrer()
Dim Wb As Workbook, Ws As Worksheet
  On Error Resume Next
  For Each Wb In Workbooks
    For Each Sh In Wb.Sheets
      Sh.ShowAllData
    Next Sh
  Next Wb
End Sub

Super merci ! ca fonctionne

juste par curiosité a quoi sert la variable Ws ? tu ne l'a pas utilisé dans le code...

Bonjour

Une erreur de ma part, il faut lire

Sub defiltrer()
Dim Wb As Workbook, Sh As Worksheet
  On Error Resume Next
  For Each Wb In Workbooks
    For Each Sh In Wb.Sheets
      Sh.ShowAllData
    Next Sh
  Next Wb
End Sub

très bien merci !