[VBA-E] Existance feuille

Bonjour,

Je souhaite créer une nouvelle feuille dans un fichier excel, mais si la feuille a déjà été créé, je souhaite ne rien faire.

En gros :

If "ma feuille existe" Then...


Ne sachant pas du tout comment faire, j'ai trouvé ceci sur le forum.

Cependant je n'arrive pas a faire fonctionner le bout de code qui est censé fonctionner à la fin du topic.

(celui-là)

Code:

---

1 2 3 4

function feuille_existe(nom as string) as boolean On error resume next set x=activeworkbooks.sheet(nom) if err = 0 then feuille_existe = true else : feuille_existe=false

---

J'ai l'impression que la fonction renvoie toujours la même chose (False).

Pour couronner le tout, je ne comprend absolument pas le bout de code en question... (oui, je sais, c'est pas bien d'utiliser un morceau de code que l'on ne comprend pas :aie: )

Bref, si vous pouviez me venir en aide d'une quelconque manière que ce soit...

Merci,

Aethis, débutant en VBA

Tu peux simplifier

Code:

---

1 2 3 4 5 6 7

function feuille_existe(nom as string) as boolean debug.print nom 'Pour voir, tu affiches la fenêtre exécution dans l'éditeur VB On error resume next set x=activeworkbook.sheets(nom) feuille_existe = err = 0 err.clear '...

---

Si nom correspond bien au nom d'une feuille, alors feuille_existe
Tu vérifies

Edit
En vert : Code modifié grâce à l'oportune remarque de bbil
Pas de s à activeworkbook

[FAQ][VBA-E] Test de l'existence d'une feuille

Ps: Ousk ... maintenant il y as un s en trop dans ton code...

merci, c'était juste les erreurs de syntaxe que ousk a pointé du doigt.