Suppression filtres sur ouverture de fichier

Bonjour

Je souhaiterai, à l'ouverture d'un fichier, supprimer tous les filtres d'un tableau, avec une boite de dialogue précisant que tous les filtres on été enlevés.

J'ai ce petit code, mais il ne fonctionne pas. :

Private Sub Workbook_Open()

ActiveSheet.ShowAllData

MsgBox "Tous les filtres on été enlevés. Vous pouvez modifier ce tableau."

End Sub

merci de votre aide.

Bonjour,

A tester

Private Sub Workbook_Open()
  Filtre 'est le nom de la macro qui enlève les filtres
End Sub

code activer par Workbook Open

Sub Filtre()
'
' Filtre Macro
'

'
    Sheets("Feuil1").Select
    ActiveCell.Range("A1:Z1").Select
    Selection.AutoFilter
    ActiveCell.Offset(1, 0).Range("A1").Select
    MsgBox "Tous les filtres on été enlevés. Vous pouvez modifier ce tableau."
End Sub

Les filtres doivent être activés à la fermeture du classeur

Amicalement

Pierrot

Salut Fred,

ShowAllData affiche par exemple les lignes masquées..

Voici un code qui

• compte le nombre d'onglets que tu as
• pour chaque onglet, désactive le filtre (qu'il y en ait un ou pas).
• se repositionne sur le 1er onglet
• donne le msgbox

Private Sub Workbook_Open()

a = ThisWorkbook.Sheets.Count 'nombre d'onglets présents dans le classeur
For x = 1 To a 'boucle sur le nombre d'onglets
    ThisWorkbook.Sheets(x).AutoFilterMode = False 'désactivation du filtre
Next

ThisWorkbook.Sheets(1).Activate 'activation du 1er onglet
MsgBox "Tous les filtres on été enlevés. Vous pouvez modifier ce tableau." 'message

End Sub

Ah ! Cappe Pierre m'a devancée