Discussion :

[rafalemirage]

Bonjour à tous,

J'ai à nouveau besoin de vous.

J'ai un fichier Excel contenant une macro qui me permet de faire des rapports journaliers et de les sauver en faisant une copie du dernier rapport et en le nommant par sa date, du style "jjmmaa". Seulement, j'ai un souci quand une feuille du même nom existe déjà, la macro s'arrête et se met en débogage.

Je voudrais donc ajouter à ma macro quelques lignes qui parcourent les feuilles et regardent si le nom de la nouvelle feuille que je souhaite créer n'existe pas déjà, auquel cas, j'ajouterai un message d'erreur.

Là ou je coince, c'est que je ne sais pas comment savoir le nombre total de feuilles qu'il y a dans le classeur. Je suppose que c'est une expression toute bête mais malheureusement, je n'arrive pas à la trouver.

Merci d'avance

Sébastien

[mercatog]

Code :

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

1
2
3
4
dim ws as worksheet
for each ws in Thisworkbook.worksheets
...
next ws

[Krovax]

bonjour
essaye count
worksheets.count

exemple

Code :

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

1
2
3
4
5
for i = 0 to worksheets.count
if worksheets(i).name="ton nom" then
msgbox "Une feuille avec ce nom existe déjà"
exit sub
end if

Une autre solution avec la gestion d'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
on error goto gestnom
'tu ajoute ta feuille
on error goto 0
 
'le reste de ton code
 
exit sub
gestnom::
msgbox "l'ajout de l'onglet à générer une erreur, merci de vérifier le nom"
end sub

Edit bonjour mercatog, là je crois qu'il aura toute les solutions

[rafalemirage]

Merci à vous deux pour vos réponses très rapides !

J'ai essayé celle de mercatog qui à marché du premier coup donc du coup je n'ai pas essayé tes solutions Krovax.

Cordialement

Sébastien

[Krovax]

L'imporatnt n'est pas d'essayer les solutions, mais de les comprendre

[charben]

Code :

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

1
2
3
4
dim ws as worksheet
for each ws in Thisworkbook.worksheets
...
next ws

Bonsoir chers tous
J'utilise Excel 2016. je constate que tous les codes du genre qui sont proposés pour boucler sur les feuilles d'un classeur ne marchent que dans la feuille active.
Le problème est il lié à la version d'excel!
Y a t'il un autre code pour Excel 2016
Merci d'avance