Vérifier si dans les classeurs ouverts une feuille contient

Bonjour,

je cherche a identifier un classeur via le nom de la feuille, il s'agit d'export de logiciel de gestion.

3 Classeurs ouverts, 1 fichier de travail et deux exports,

je souhaite attribuer un nom a chacun des exports réalisés, en repérant dans le nom de la feuille les notions R200 et R201

cette fonction est appelé dans le module principal,

mais le code ci dessous ne fonctionne pas, pouvez vous maider ?

Merci d'avance

Public Function Fichiers_ouverts() As String

    Dim ClasseurOuvert As Workbook
    Fichiers_ouverts = "FAUX"

    For Each ClasseurOuvert In Workbooks
        If Fichiers = "R200" And _
            InStr(ClasseurOuvert.Sheets(1).Name, "*R200*") > 0 _
        Then
            ClasseurOuvert.Activate
            Set R200 = ActiveWorkbook
            Fichiers_ouverts = "VRAI"
            Exit For

        ElseIf Fichiers = "R201" And _
   InStr(ClasseurOuvert.Sheets(1).Name, "*R201*") > 0 _
        Then
            ClasseurOuvert.Activate
            Set R201 = ActiveWorkbook
            Fichiers_ouverts = "VRAI"
            Exit For
        End If
    Next

bonjour

quelqu'un aurait il une solution ?

Merci d'avance

Bonjour

Joint tes 3 fichiers et on verra ce qu'on peut faire...

Bye !