Discussion :

[Elstak]

yop,

je voudrai vérifier qu'une feuille du classeur ne porte pas deja un nom.
j'ai testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

            If (Len(Worksheets(nom)) = 0) Then

un peu comme pour un fichier mais ca ne vas pas

Une petite idée ?

[Megaxel]

Oui. Regarde ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function LaFeuilleExisteDeja(ByVal Nom As String) As Boolean
    Dim i As Integer
    LaFeuilleExisteDeja = False
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = Nom Then LaFeuilleExisteDeja = True
    Next i
End Function
 
Sub test()
    MsgBox (LaFeuilleExisteDeja("Feuidzddzl1"))
End Sub

[random]

on peut essayer cela sans balayer toutes les feuilles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Function feuexiste(x As String) As Boolean
On Error GoTo fin
Sheets(x).Select
feuexiste = True
Exit Function
fin:
feuexiste = False
End Function

[Elstak]

bah oui c'est vrai
c'est toujours plus simple qd on a la solution

merci