sheets("toto").activate if err<>0 then err=0 msgbox "Feuille toto n'existe pas" ' reste du code else 'OK, elle existe '.... code end if End sub
Ca devrait suffire Bon dimanche
"Eddy Maue" <eddymaue@@hotmail.com> a écrit dans le message de news:
dans un classeur je cherche à savoir si une feuille existe
Est-ce qu'on doit absolument vérifier toute les feuilles pour savoir si une feuille existe
ltrouvre = false For Each f In Sheets
If f.Name = Sheets.Application.ActiveCell Then ' Workbooks.Application.Sheets (Sheets.Application.ActiveCell) ' Workbooks.Application.Sheets (Sheets.Application.ActiveCell.Value)
ltrouvre = True
End If Next
ou s'il y a a une fonction du genre
if Existe(sheets("feuil1")) then ' ajoute une feuille end if
merci de votre aide eddy a+
AV
Autre façon de tester de façon indirecte l'existence d'une feuille (de calcul)
Sub TestFeuilleExiste() x = "NomFeuille" If Evaluate("iserror(" & x & "!A1)") Then MsgBox "la Feuille " & x & " n'existe pas" Else '....blabla End If End Sub
AV
Autre façon de tester de façon indirecte l'existence d'une feuille (de calcul)
Sub TestFeuilleExiste()
x = "NomFeuille"
If Evaluate("iserror(" & x & "!A1)") Then
MsgBox "la Feuille " & x & " n'existe pas"
Else '....blabla
End If
End Sub
Autre façon de tester de façon indirecte l'existence d'une feuille (de calcul)
Sub TestFeuilleExiste() x = "NomFeuille" If Evaluate("iserror(" & x & "!A1)") Then MsgBox "la Feuille " & x & " n'existe pas" Else '....blabla End If End Sub
