Comment ouvrir un type de fichier?

Bonsoir,

J'ai une macro qui scan un dossier à la recherche de fichier .xlsm, dont l'onglet admin (Range C1) égal "FR", on exécute le code

Application.ScreenUpdating = False

Workbooks.Open Filename:=FileItem.path

If Sheets("admin").Range("C1") = "FR" Then

'code

End If

Workbooks(fichier).Close savechanges = False

Application.ScreenUpdating = True

Mon problème réside dans le fait, que dans le dossier, j'ai d'autres types de fichiers (image,...) et aussi d'autres fichiers xlsm, et lorsqu'il ouvre d'autres fichiers il fait "sauter" Application.ScreenUpdating = False et affiche l'ouverture/fermeture des fichiers.

Bref, je cherche à coder un "filtre" pour traiter uniquement les fichiers que je souhaite!

merci à ceux qui m'ont compris Et Bonne Année

Bonjour

Sans le bon fichier pas facile à tester

Essayes

Sub test()
Dim Fichier As String
Dim Trouve As Boolean
Dim Nb As Integer

Application.ScreenUpdating = False

  Fichier = Dir(ThisWorkbook.Path & "\*.xlsm")
  Do While Fichier <> "" And Trouve = False
    Nb = Nb + 1
    Workbooks.Open Fichier
    If FeuilleExiste(Fichier, "admin") = True Then
      If Sheets("admin").Range("C1") = "FR" Then
        Trouve = True
        'code
      End If
    End If
    Workbooks(Fichier).Close savechanges:=False
    Fichier = Dir
  Loop
  MsgBox "Scan de " & Nb & " fichiers"
End Sub

Function FeuilleExiste(Classeur As String, Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Workbooks(Classeur).Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

Merci Banzai,

je pense que je me prends trop la tête

J'ai mis les fichiers "autres" dans un sous-repertoire, et c'est bon, faut pas se prendre la tête là