Discussion :

[Aethis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )

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

Merci,

Aethis, débutant en VBA

[ouskel'n'or]

Tu peux simplifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

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

[Aethis]

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