Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
denis P
'''''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
"Emcy" a écrit dans le message de news:%
Bonjours,
comment faire pour savoir si la feuille toto existe ?
'''''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
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:%23FBNKWd3EHA.1192@tk2msftngp13.phx.gbl...
Bonjours,
comment faire pour savoir si la feuille toto existe ?
'''''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
"Emcy" a écrit dans le message de news:%
Bonjours,
comment faire pour savoir si la feuille toto existe ?
Emcy
merci
"denis P" a écrit dans le message de news:%
'''''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
"Emcy" a écrit dans le message de news:%
Bonjours,
comment faire pour savoir si la feuille toto existe ?
merci
"denis P" <dede@spam.toto.ch> a écrit dans le message de
news:%23bDD6Zd3EHA.1524@TK2MSFTNGP09.phx.gbl...
'''''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
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:%23FBNKWd3EHA.1192@tk2msftngp13.phx.gbl...
Bonjours,
comment faire pour savoir si la feuille toto existe ?
'''''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
"Emcy" a écrit dans le message de news:%
Bonjours,
comment faire pour savoir si la feuille toto existe ?