Recherche de l'existence d'une feuille [Résolu]

Bonjour,

Exemple :

Sub Test_Feuille()

    Dim NomFeuille As String, Reponse As Boolean
    
    NomFeuille = "Feuil4"
    Reponse = FeuilleExiste(NomFeuille)
    MsgBox Reponse
    
End Sub
'

Function FeuilleExiste(MaFeuille As String) As Boolean

    Dim Feuille As Worksheet
    
    FeuilleExiste = False
    For Each Feuille In Worksheets
        If (Feuille.Name = MaFeuille) Then
            FeuilleExiste = True
        End If
    Next Feuille
    
End Function
'

Lupin

Bonjour,

dim i as integer
dim b_existe as boolean

For i = 1 To Sheets.Count 
    if Sheets(i).Name = "nomrecherché" then
       b_existe = true
    end if
next

C'est ce que tu cherches ?

Merci à vous ça marche impeccable

En fait chaque semaine, une feuille d'un classeur Excel nommé tot.xls est créée. J'ai developpé une macro qui recupére les informations saisies dans ce classeur, ouvre un autre classeur (titi.xls) copie la feuille nommée original et la recopie dans une nouvelle que l'on nomme N° semaine ( par exemple 30)
J'ai déja récupéré dans ma macro la valeur de la semaine du premier classeur dans une variable et maintenant avant de créer une nouvelle feuille dans le second classeur j'aimerai verifier son existence.

Je vais tester ta solution