Discussion :

[chrystobale]

Bonjour le Forum,

Je n'ai pas trouvé, ou mal cherché, une solution plus rapide pour ajouter et renommer une feuille dans un classeur
Voici la méthode que j'applique, existe t il une autre méthode plus simple?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub MakePivotTable()
Worksheets("caresrpt-05Nov2009").Select 'selectionne la feuille reference
Worksheets.Add After:=Sheets(Worksheets.Count) 'ajoute une feuille apres la feuille ref
Sheets(Worksheets.Count).Name = "titi" & Worksheets.Count 'renomme la feuille ajoutée
'MsgBox Worksheets(Worksheets.Count).Name
'Set PTOutput = Worksheets(Worksheets.Count)  'code pour next step
'PTOutputName = PTOutput.Name & "toto" 'code pour next step
Worksheets("caresrpt-05Nov2009").Select 'selectionne la feuille reference
 End Sub

Merci d'avance pour votre réponse,

Chrysto

[drakkar_agfa]

Bonjour,

Voici une méthode bien simple et efficace.

Code :

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

1
2
3
Dim sh As Worksheet
Set sh = Worksheets.Add
sh.Name = "Nouveau Nom"

Avec le "set" ton objet worksheets sh sera relié à la nouvelle feuille.

Tu pourrais aussi la relier avec une feuille déja existante :

Code :

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

Set sh = Worksheets("Feuil1")

et l'utiliser tout au long de te code

Code :

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

sh.Cells(1, 1) = "Salut"

Mais voici ce qui peut remplacer ton code :

Code :

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

1
2
3
4
5
Dim shNew As Worksheet, sh As Worksheet
Set sh = ActiveSheet
Set shNew = Worksheets.Add After:=Worksheets("caresrpt-05Nov2009")
sh.Name = "titi" & Worksheets.Count
sh.Activate

Et voila!

[chrystobale]

Hello drakkar_agfa at le Forum,

Je te remercie pour cette réponse mais à priori le code suivant ne passe pas dans ta proposition :

Code :

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

1
2
 
Set shNew = Worksheets.Add After:=Worksheets("caresrpt-05Nov2009")

l'héritage ne passe pas.

Chrysto

[drakkar_agfa]

Bonjour,

Il suffit de mettre le tout en parenthèses :

Code :

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

Set shNew = Worksheets.Add(After:=Worksheets("caresrpt-05Nov2009"))

J'ai testé avec ce code et ça fonctionne bien!

Code :

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

1
2
3
4
5
    Dim shNew As Worksheet, sh As Worksheet
    Set sh = ActiveSheet
    Set shNew = Worksheets.Add(After:=Worksheets("caresrpt-05Nov2009"))
    shNew.Name = "titi" & Worksheets.Count
    sh.Activate

Si ça ne fonctionne toujours pas, reviens nous!

[laetitia]

bonjour chrystobale drakkar_agfa le forum cree en derniere position
si ta feuille Worksheets("caresrpt-05Nov2009") est pas la derniere il faut utiliser le code de l'ami drakkar qui met la feuille juste apres & pas en derniere position

Code :

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

1
2
3
4
5
Sub cre()
Sheets.Add.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = "titi" & Worksheets.Count
Worksheets("caresrpt-05Nov2009").Select
End Sub

[chrystobale]

Merci à Leatitia et drakkar_agfa,

J'avoue que j'aurais pu/du regardé d'un peu plus prêt mais j'avoue que je n'avais pas pensais au coup des parenthèses ....
Merci pour votre soutiens !

Chrysto