Alors voilà, j'exporte des feuilles dans un certain classeur pour faire des calculs et j'ai vraiment des noms barbares et je voudrais améliorer ce point.
La cellule qui m'intéresse est la cellule M5.
J'ai trouvé sur le forum cette macro mais cela ne fonctionne pas :
Sub NomFeuille()
Nom = Sheets("Feuil1").Range("M5").Value
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Nom
End Sub
Le problème vient peut-être du Feuil1 car ma feuille ne se nomme pas ainsi mais le souci c'est que je ne connaîs pas à l'avance le nom de ma feuille exportée.
Ou peut-être une Function au lieu du Sub vu que Nom est utilisé pour changer le nom de la feuille.
Vous êtes plus à même de savoir d'où vient le problème.
Re : Changer nom d'une feuille à partir d'une cellule
Bonjour,
bah... peut être ceci :
Code:
Nom = ActiveSheet.Range("M5").Value
si le nom que devra porter la nouvelle feuille est bien sur la feuille active avant la création de cette nouvelle feuille... mais bon pas sûr d'avoir compris ton problème...
Re : Changer nom d'une feuille à partir d'une cellule
Re,
Je n'ai pas compris ta remarque.
Pourquoi faire cette comparaison ?
J'ai un nom de feuille et je veux que celui-ci devienne la valeur de la cellule M5 et cela pour toutes les feuilles sauf la feuille nommé Recap.
Je travaille sur ce code :
Sub NomFeuille()
For Each Sh In Sheets
If Sh.Name <> "Recap" Then
If Not IsEmpty(Range("M5")) Then
[M5] = Sh.Name
End If
End If
Next
End Sub
Mais cela ne fonctionne pas. J'appelle pourtant cette "fonction" au clic sur mon bouton .
Re : Changer nom d'une feuille à partir d'une cellule
Re,
Alors cela fonctionne pour certaines feuilles mais pas toutes ...
Je ne comprends pas pourquoi.
J'ai des noms du style : Le Bob** ( j'ai deux symboles carrés à la place des étoiles.)
J'ai l'erreur 1004.
Peut-être parce que j'ai deux feuilles qui auront le même nom avec la coupure.
Comme cela XXXXX- Le Bourg
et XXXXX-XXX-XXX- Le Bourg
Re : Changer nom d'une feuille à partir d'une cellule
Re,
bah oui, pas possible 2 noms de feuille identiques... une recherche sur le forum te fournira plein de discussions pour tester l'existance d'une feuille...