existante feuil

Salut Emcy,

Une solution sous forme de fonction (renvoie VRAI ou FAUX) :

Function FeuilleExiste(NomFeuille As String) As Boolean
Dim sh As Sheets
On Error Resume Next
Set sh = Sheets(NomFeuille)
If Err = 9 Then feuillexiste = False _
Else FeuilleExiste = True
On Error GoTo 0
End Function


A+
Nicolas B.


Emcy wrote:

Bonjours,

comment faire en vba pour savoir si la feuille "tata" (par exemple) existe ?

Salut,
En moins de lignes
Function FeuilleExiste(NomFeuille As String) As Boolean
Dim sh As Sheets
On Error Resume Next
Set sh = Sheets(NomFeuille)
feuillexiste = Not(Err = 9)
On Error GoTo 0
End Function

Bye
Yann

-----Message d'origine-----
Salut Emcy,

Une solution sous forme de fonction (renvoie VRAI ou
FAUX) :

Function FeuilleExiste(NomFeuille As String) As Boolean
Dim sh As Sheets
On Error Resume Next
Set sh = Sheets(NomFeuille)
If Err = 9 Then feuillexiste = False _
Else FeuilleExiste = True
On Error GoTo 0
End Function


A+
Nicolas B.


Emcy wrote:

Bonjours,

comment faire en vba pour savoir si la feuille "tata"
(par exemple) existe ?

.

Bonsoir Emcy

Il y a aussi ceci

'-----------
nom = UCase(InputBox("Entrez le nom du fichier à chercher", "Entrée"))
' ou nom="TATA"
If nom = "" Then Exit Sub
For i = 1 To Worksheets.Count
If UCase(Sheets(i).Name) = nom Then existe = 1
Next
If existe = 1 Then
MsgBox "Le fichier " & nom & " existe"
Else
MsgBox "Le fichier " & nom & " n'existe pas"
End If
'--------------
Salutations
JJ

"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:O048judiEHA.2764@TK2MSFTNGP11.phx.gbl...

Bonjours,

comment faire en vba pour savoir si la feuille "tata" (par exemple) existe
?

Bonsoir,

En moins de lignes

Ou aussi, une syntaxe classique :

Function FeuilleExiste(NomFeuille$) As Boolean
On Error Resume Next
FeuilleExiste = CBool(Len(Sheets(NomFeuille).Name))
End Function

FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Salut,
En moins de lignes
Function FeuilleExiste(NomFeuille As String) As Boolean
Dim sh As Sheets
On Error Resume Next
Set sh = Sheets(NomFeuille)
feuillexiste = Not(Err = 9)
On Error GoTo 0
End Function

Bye
Yann

-----Message d'origine-----
Salut Emcy,

Une solution sous forme de fonction (renvoie VRAI ou

FAUX) :

Function FeuilleExiste(NomFeuille As String) As Boolean
Dim sh As Sheets
On Error Resume Next
Set sh = Sheets(NomFeuille)
If Err = 9 Then feuillexiste = False _
Else FeuilleExiste = True
On Error GoTo 0
End Function


A+
Nicolas B.


Emcy wrote:

Bonjours,

comment faire en vba pour savoir si la feuille "tata"

(par exemple) existe ?

.