Tester la présence d'une feuille dans un classeur

[basto]

Bonjour,

Je souhaite tester la présence d'une feuille dans un classeur excel. L'algo est du type :
Si feuille("toto") existe alors
effacer le contenu
sinon
creer la feuille
fin si

Quand je fais ce genre de code et que la feuille en question n'existe pas, j'ai le message d'erreur VB comme quoi l'indice est en dehors de la sélection

Qqun à une idée pour contourner le problème

D'avance merci

 

[nat54]

Re : Tester la présence d'une feuille dans un classeur

Bonjour,

Peut-être faire l'algo inverse
- si feuille toto n'existe pas,
- créer feuille,
- sinon effacer contenu

 

[basto]

Re : Tester la présence d'une feuille dans un classeur

Petit complèment :
Le problème est sur le test d'un élément qui n'existe pas et donc dans ce cas, il y a une erreur VBA Excel.

Le sens de l'algo n'y est pour rien

 

[pierrejean]

Re : Tester la présence d'une feuille dans un classeur

bonjour basto
salut nat54

teste ceci

Sub test()
For n = 1 To Sheets.Count
If Sheets(n).Name = "Toto" Then
 Sheets(n).Cells.ClearContents
 Exit Sub
End If
Next n
Sheets.Add
ActiveSheet.Name = "Toto"
End Sub

 

[ERIC S]

Re : Tester la présence d'une feuille dans un classeur

Bonjour

2 petits codes

Sub e()
oui = 0
For i = 1 To Sheets.Count
If Sheets(i).Name = "Feuil1" Then oui = 1
Next
If oui = 1 Then MsgBox "existe": Exit Sub
MsgBox "n'existe pas"
End Sub

Sub e1()
Dim F As Worksheet
oui = 0
For Each F In Sheets
If F.Name = "Feuil2" Then oui = 1
Next
If oui = 1 Then MsgBox "existe": Exit Sub
MsgBox "n'existe pas"
End Sub

 

[basto]

Re : Tester la présence d'une feuille dans un classeur

OK, merci à tous.

J'avoue que j'avais déjà cette solution mais le but du jeux est de comparer deux fichiers excel entre eux et de détecter des erreurs.

Donc j'espèrais naivement qu'Excel permette de saisir une formule du style :
IsError(....) ou IsSheets()...

Mais celà n'a pas l'air d'être le cas et va falloir que je fasse un algo qui parcours N fois les feuilles de chaque classeurs.

Merci encore et si qqun connait une solution top, je suis preneur.

A+

 

[ERIC S]

Re : Tester la présence d'une feuille dans un classeur

re

1/tu récupères tous les noms d'un de tes classeurs et tu les mets dans un tableau

tu lis chaque nom de l'autre et tu compares avec les éléments du tableau

2/ tu utilises le "on error"