Renommer une feuille sur excel en vba

[SUCCES20]

Bonsoir famille


J'aimerai juste savoir comment faire pour renommer les feuilles après création des feuilles avec un code VBA

merci et bonne soirée a vous

 

[SUCCES20]

ok donc le nouveau code deviens ceci?
Sub Nouvel_onglet()
Feuil2.Copy After:=Feuil2
Feuil2.Name = Val(Sheets(Feuil2.Index - 1).Name) + 1
End Sub

 

[Dranreb]

Non, après le Copy c'est bien toujours la nouvelle feuille qui est active donc la ActiveSheet qu'il faut renommer. Et je croyais qu'on y mettait un nom donné par InputBox ? …

 

[SUCCES20]

ok faut voir ceci
Sub Nouvel_onglet()
Feuil2.Copy After:=ActiveSheet
Feuil2.Name = Val(Sheets(ActiveSheet.Index - 1).Name) + 1
End Sub

 

[Dranreb]

C'est surtout l'instruction après qu'il faut remplacer par celle de mon poste #21
Et probablement faire suivre par celle du #23

 

[SUCCES20]

Le nom de la feuille a copier est sh_copie
quel sera le nouveau code dans Sub Nouvel_onglet()

 

[Dranreb]

Ce que vous dites n'est pas clair. sh_copie est il le nom d'une feuille ou d'un objet Worksheet qui la représente ?
Moi je proposais de tout faire dans la Sub Nouvel_onglet :

Sub Nouvel_onglet()
   Feuil2.Copy
   ActiveSheet.Name = IntputBox("Nom de la feuille créée ?")
   Feuil2.[F1000000].End(xlUp)(2).Value = ActiveSheet.Name
   End Sub

Mais je trouve bizarre que la feuille modèle à copier soit aussi celle qui contient la liste des feuilles.

 

[SUCCES20]

C'est le Worksheet que j'ai nommé sh_copie
la feuille a copier est la feuille bancaire (sh_copie)

 

[Dranreb]

Joignez le classeur que je puisse vérifier ce que vous dites.
Je ne suis pas sûr que vous ayez bien compris en quoi consiste un objet VBA de type Worksheet. J'ai toujours l'impression que vous confondez son nom avec celui de la feuille Excel dont il assume la représentation vis à vis de VBA.

 

[SUCCES20]

OK compris je vous envoi le fichier

 

[SUCCES20]

voici le fichier ci-joint
c'est la feuille BANCAIRE qui doit être copiée

 

[Dranreb]

OuI c'est bien l'objet Worksheet qui s'appelle comme ça. Mais je déconseille le '_' dans les identifiants cal il sert de séparateur dans les noms des procédures de prise en charge d'évènements entre le nom de l'objet et le nom de l'évènement.
Alors :

Private Sub Label44_Click()
Sh_Copie.Copy After:=ActiveSheet
ActiveSheet.Name = InputBox("Nom de la feuille créée")
Feuil2.[F1000000].End(xlUp)(2).Value = ActiveSheet.Name
End Sub

Une seconde procédure pour renommer une feuille me semble inutile et on ne saurait pas forcément quelle feuille est à renommer.

 

[SUCCES20]

Merci bien ça marche bien
Bonne soiree a vous