Tester l'existance d'une feuille excel
stivi_45
Messages postés
21
Date d'inscription
lundi 17 mai 2004
Statut
Membre
Dernière intervention
29 avril 2006
-
10 juin 2004 à 09:31
NicoSoftt Messages postés 106 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 28 octobre 2005 - 18 juin 2004 à 22:00
NicoSoftt Messages postés 106 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 28 octobre 2005 - 18 juin 2004 à 22:00
A voir également:
- Tester l'existance d'une feuille excel
- Vba supprimer une feuille ✓ - Forum VB.NET
- Suppression d'une feuille excel sans msgbox ✓ - Forum Visual Basic 6
- Appeler une cellule d'une autre feuille excel - Forum Visual Basic
- Vba récupérer valeur cellule d'une autre feuille ✓ - Forum Visual Basic
- Prendre la valeur d'une cellule dans excel avec vba - Forum Visual Basic
1 réponse
NicoSoftt
Messages postés
106
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
28 octobre 2005
18 juin 2004 à 22:00
18 juin 2004 à 22:00
'Imaginons que la feuille "Sheet1" existe
'Et que la feuille "Sheet12328" n'existe pas.
Private Sub CommandButton1_Click()
MsgBox existfeuil("Sheet1") [green]' Renvoie True
MsgBox existfeuil("Sheet12328") [green]' Renvoie False
End Sub
Function existfeuil(nomFeuil) As Boolean
existfeuil = True
On Error GoTo fin:
a = Sheets(nomFeuil).Name
Exit Function
fin: existfeuil = False
End Function
N$
'Et que la feuille "Sheet12328" n'existe pas.
Private Sub CommandButton1_Click()
MsgBox existfeuil("Sheet1") [green]' Renvoie True
MsgBox existfeuil("Sheet12328") [green]' Renvoie False
End Sub
Function existfeuil(nomFeuil) As Boolean
existfeuil = True
On Error GoTo fin:
a = Sheets(nomFeuil).Name
Exit Function
fin: existfeuil = False
End Function
N$
