Bonjour,
Je demande un conseil aux experts de ce forum ^^.
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.
Merci de vos éventuelles réponses.
Kévin.
Je demande un conseil aux experts de ce forum ^^.
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.
Merci de vos éventuelles réponses.
Kévin.