Renommer onglet depuis une cellule d'une autre feuille

bonjours à tous, je suis tout nouveau sur ce forum et d'avance de m'excuser de quelques maladresse qui peuvent apparaitre.

voilà mon petit problème, j'ai une macro me permettant de copier une feuille matrice nommer Neutre, jusque là sans problème. mais impossible de là renommer d'après une cellule n1 ce trouvant sur une autre feuille nommer feuil1, je suis débutant en vba et macro, de plus l'anglais j'y comprend rien.

merci d'avance pour votre aide et surtout n'hésite pas à m'expliquer comment sa fonctionne , je serais moins bête ce soir.

voici la macro

Sub CopySheetRename()
With Sheets("Neutre").Select
    Sheets("Neutre").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
End With
Sheets("feuil1").Name = Range("n1").Value '( c'est ici que ça coince )http://forum.excel-pratique.com/ucp.php?i=pm&mode=compose&action=post&sid=8f78be36420d180c370b0875a11c8c0e#
End Sub

Bonjour et bienvenue sur le forum

Essaie ce code :

Sub CopySheetRename()
With Sheets("Neutre").Select
    Sheets("Neutre").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
End With
ActiveSheet.Name = Sheets("Feuil1").Range("n1")
End Sub

Bye !

edit

ou plutôt celui-ci :

Sub CopySheetRename()
    Sheets("Neutre").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.Name = Sheets("Feuil1").Range("n1")
End Sub

Bye !

Bonjour et bienvenue,

essaie plutôt ceci :

Sub CopySheetRename()
With Sheets("Neutre")
    .Copy After:=Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.Name = .Range("n1").Value
End With
End Sub

Si ok, lors de ta réponse clique sur le v vert à coté du bouton EDITER pour cloturer le fil

Lis aussi ces quelques lignes qui t'aideront dans tes demandes et réponses sur ce forum -->https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html

Crdlt

Bonjour,

Ou alors :

Sub CopySheetRename()
    Sheets("Neutre").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Sheets("feuil1").Range("N1").Value
End Sub

A+

Bonjour,

A adapter en fonction de " l'autre feuille " ... qui contient les noms ...

Sub Test()
Sheets("Neutre").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
Sheets(Sheets(ThisWorkbook.Sheets.Count).Index).Name = Sheet1.Range("N1").Value
End Sub

alors là chapeau pour votre rapidité

fonctionne nickel chrome, j'ai opté pour la soluce de james007

et c'est tout a fait ce qu'il me faut.

encore merci de votre aide a tous.

bonne journnée

Merci pour tes remerciements ...

Et comme le dit Jean-Eric ....

voilà j'ai trouvé mon problème, erreur de syntaxe sur la feuil1 que j'avais renommer, après correction tous fonctionne de nouveau.

la prochaine fois je commencerai par chercher avant de vous solliciter. Promis

merci encore pour ton aide , bonne journée