Vérification existence feuille

[LaurentG]

Bonjour,

Dans un code, je cherche à vérifier l'existence d'une feuille.
Si la feuille existe alors on continue le code, sinon on arrête.

J'avais mis ce code là :

nomfeuillecherchee = "totalcdNF"
If ActiveWorkbook.Worksheets(nomfeuillecherchee) Is Nothing Then
MsgBox "Veuillez créer la dataSheet EN71-3 ou Total Cadmium pour pouvoir faire une importation.", vbInformation
ActiveWorkbook.Close
Exit Sub
Else
...

Si elle existe aucun problème, mais si elle n'existe pas j'ai un message d'erreur :

"Erreur d'exécution '9'. L'indice n'appartient pas à la sélection".

Quelqu'un aurait une idée sur le code que je devrais mettre pour que cela fonctionne?

Merci.

Laurent

 

[wilfried_42]

Re : Vérification existence feuille

Bonjour

tu as 2 solutions dont une que j'aime moins

Soit tu crees une fonction (celle que je prefere) que tu mets dans un module standard

Function Exist_sheet(Nom as string) as boolean
      dim ws as worksheet
      Exist_sheet = false
      for each ws un thisworkbook.sheets
           if ws.name = Nom then Exist_sheet = true : exit for
      next ws
end function

utilisation :

if Exist_sheet("totalcdNF") = false then
end if

le 2eme est de traiter l'erreur, mais franchement ce n'est pas beau et à eviter