[VBA-E] nom des onglets

**mulanzia2003** · 21/03/2006, 10h29

Bonjour

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 :

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

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

Merci d'avance

**SfJ5Rpw8** · 21/03/2006, 10h36

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 :

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

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

**random** · 21/03/2006, 10h39

Code :

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

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

**mulanzia2003** · 21/03/2006, 10h46

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.