[VBA-E] nom des onglets

Version imprimable

Bonjour :D

voilà mon problème.
Je dispose d'un classeur excel à 4 feuilles
Feuille 1 = sommaire
Feuille 2 = base de données
Feuille 3 = masque
Feuille 4 = graphique

Je souhaite créer une copie de la feuille 3 et la renommer par "Janvier 2006"
Code:

1 2 3 4 5 6 7 Private Sub JANVIER2006_Click() Worksheets("Base").Copy After:=Sheets(4) Worksheets("Base (2)").Select Worksheets("Base (2)").Name = "Janvier 2006" Worksheets("Janvier 2006").Range("E3").Select End sub
Mon problème est que si je reclic sur le bouton "Janvier 2006", il me copie à nouveau la feuille 3 et essaye de la renommer par "Janvier 2006".
Cela me renvoie une erreur!!! Normal la feuille existe déjà.
Et c'est là que j'ai besoin de vous.
Je souhaiterai vérifier que la feuille nommée "Janvier 2006" n'existe pas et alors je la crée, sinon j'active cette feuille.
Je n'arrive pas à le faire j'ai essayé avec des boucle For, avec des Do while.
Un peu d'aide me ferait plaisir :? :oops:

Merci d'avance

tu peu par exemple utiliser la gestion d'erreur ... tu active la feuille ... et si Erreur .. c'est que celle-ci n'existe pas tu la crée..
Code:

1 2 3 4 5 6 7 8 9 10 Sub VerifieFeuille(st As String) On Error GoTo err_MqeFeuille Worksheets(st).Activate Exit Sub 'Pas d'erreur on sort ... err_MqeFeuille: 'la feuille n'existe pas on la crée.. Worksheets(3).Copy After:=Worksheets(Worksheets.Count) ActiveSheet.Name = st End Sub

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub JANVIER2006_Click() 
on error resume next
 
   Worksheets("Base").Copy After:=Sheets(4) 
    Worksheets("Base (2)").Select 
    Worksheets("Base (2)").Name = "Janvier 2006" 
on error goto 0
    Worksheets("Janvier 2006").Range("E3").Select 
End sub

21/03/2006, 10h46
mulanzia2003

ok mais il crée quand même une feuille "Base (2)".
Mais bon je peux la supprimer.
Enfin je laisse cet topic ouvert jusqu'à ce soir et je la quote résolu demain si pas de modification d'ici là
merci à tous les 2.
21/03/2006, 10h49
SfJ5Rpw8

as tu tester mon code ...? par :

Code:

VerifieFeuille "Janvier 2006"

:wink:
21/03/2006, 10h56
mulanzia2003

Merci bbil cela marche parfaitement.
Respect !!!