Nom du TCD avec variable

Bonjour,
Après recherche que je continue serait il possible d'avoir un coup de main.
Je voudrais que le nom du classeur apparaisse a la place du nom du TCD a chaque ouverture du classeur puisque celui si est variable.
le nom du classeur est dans une cellule qui sera appelé par la macro pour remplacer le nom du tableau par default.
merci

Bonjour,

Une façon de faire:

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() With ThisWorkbook .Worksheets("Feuil1").ListObjects(1).Name = Left(.Name, InStrRev(.Name, ".") - 1) End With End Sub

---

A noter que si le fichier a un nom qui correspond au nom d'une cellule, p.ex A1 ou ABC3, le tableau ne pourra recevoir ce nom car il désigne déjà une cellule. Dans ce cas Excel ajoutera un _ en fin de nom pour le tableau: cellule A1 <> tableau A1_, cellule ABC3 <> tableau ABC3_

Cordialement.