tester l'existence d'une feuille

Pas mal de possiblités..

Function existeF(nomF$)
On Error Resume Next
x = Range(nomF & "!A1")
If Err.Number <> 0 Then existeF = False Else existeF = True
End Function

AV

Bonjour Lola
un exemple.....


'''''Denis Pasquier 2-2-2001''''
''' teste si une feuille existe'''
Option Explicit

Sub teste()
Dim nomF As String

nomF = "Nom_de_ta_feuille"
If F_existe(nomF) Then
MsgBox "La feuille " & nomF & " existe"
Else
MsgBox "La feuille " & nomF & " existe PAS"
End If
End Sub

Function F_existe(NomFeuille As String) As Boolean
Dim F As Worksheet
On Error Resume Next
Set F = Worksheets(NomFeuille)
If Err Then
F_existe = False
Else
F_existe = True
End If
On Error GoTo 0
Set F = Nothing
End Function

"Lola" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:15d501c4fa1c$c7d72310$a601280a@phx.gbl...
Bonjour,

Savez-vous quelle est la fonction VBA pour voir si une
feuille donnée (par son nom) existe ?

Merci de votre aide

Merci bcp à vous 2.

-----Message d'origine-----
Pas mal de possiblités..

Function existeF(nomF$)
On Error Resume Next
x = Range(nomF & "!A1")
If Err.Number <> 0 Then existeF = False Else existeF =
True

End Function

AV


.