EXISTENCE FEUILLE EXCEL (URGENT)

yoarf Messages postés 215 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 19 février 2009 - 8 juin 2004 à 12:00
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 8 juin 2004 à 12:08
Bonjour,

Je développe sous VBA Excel. Je veux pouvoir dans mon document Excel tester si une feuille (de nom APPSP par exemple) existe (est une worksheet en fait).

En fait je veux faire ça :
if Worksheets("APPSP") existe then

Y.C

2 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
8 juin 2004 à 12:06
tu peux utiliser la fonction suivante

Function SheetExist(ByRef Name As String) As Boolean
On Error GoTo DontExists
SheetExist = Not Worksheets(Name) Is Nothing
Exit Function
DontExists:
End Function
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
8 juin 2004 à 12:08
ou une version qui ne fonctionne pas avec la gestion d'erreurs...

Function SheetExist(ByRef Name As String) As Boolean
    Dim i As Integer
    For i = 1 To Worksheets.Count
        If StrComp(Worksheets(i).Name, Name, vbTextCompare) = 0 Then
              SheetExist = True
              Exit Function
        End If
    Next i
End Function
0
Rejoignez-nous