Selection feuille active

[Fab]

Rerebonjour,
Cette fois, la macro créée une nouvelle feuille. Je souhaiterais que cette nouvelle feuille soit directement renommée ("Preparatif") et replacée.

Sub CreationFeuillePreparatif()
Sheets.Add
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "Preparatif"
Sheets("Preparatif").Move After:=Sheets(2)
Sheets("Preparatif").Select
End Sub

Cette macro fonctionne bien, mais plutôt qu'il sélectionne "Feuil1", je préférerais qu'il sélectionne la feuille active. Comme ça, en cas de fausse manoeuvre (Feuil1 ayant déjà été créée), il ne plantera pas.
Ou mieux encore, qu'il nomme la feuille en la créant.
Une nouvelle fois merci d'avance.

 

[Romuald]

Je crois que tu peux faire :

Dim wksNewSheet as Worksheet

Set wksNewSheet = Sheets.Add

Ensuite, tu utilises wksNewSheet pour le renommage et le déplacement.

 

[Pascal76]

Rere

essaies

Sub CreationFeuillePreparatif()
Sheets.Add
Activesheet.Name = "Preparatif"
Sheets("Preparatif").Move After:=Sheets(2)
Sheets("Preparatif").Select
End Sub

Bon courage

Pascal

 

[Fab]

Merci,
Super ça marche