XL 2019 Nommer un tableau en fonction du nom du classeur

[nono42000]

Bonjour,
Serais t-il possible de nommer le TCD du nom du classeur a l'ouverture de celui ci.
Fichier joint.

Merci

 

[D.D.]

Hello,

A mettre dans "ThisWorkbook"

Private Sub Workbook_Open()
    If Worksheets("Feuil1").ListObjects.Count <> 1 Then MsgBox "Nombre de tableau non valide": Exit Sub
    Worksheets("Feuil1").ListObjects(1).Name = ActiveWorkbook.Name
End Sub

 

[nono42000]

Bonjour D.D et merci pour ces infos mais petit probleme une fois installé dans this workbook ca me met erreur de compilation en sachant que j'ai deja plusieurs code au dessus et j'ai mis le votre a la suite :

Private Sub Workbook_Open()
Worksheets("Accueil").Activate
    Range("Q7") = ActiveWorkbook.BuiltinDocumentProperties(12)
    Range("Q10") = Environ("UserName")
End Sub

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Open()
    If Worksheets("Feuil1").ListObjects.Count <> 1 Then MsgBox "Nombre de tableau non valide": Exit Sub
    Worksheets("Feuil1").ListObjects(1).Name = ActiveWorkbook.Name
End Sub

​

 

[D.D.]

Il faut intégrer le code, pas mettre 2 fois le
Private Sub Workbook_Open()

De plus j'ai mis "Feuil1", mais j'imagine que c'est à modifier selon le vrai classeur

 

[nono42000]

Ok j'y travaille au plus simple ça ne fonctionne pas pour l’intégrer il me manque la liaison entre les deux :

Private Sub Workbook_Open()
Worksheets("Accueil").Activate
Range("Q7") = ActiveWorkbook.BuiltinDocumentProperties(12)
Range("Q10") = Environ("UserName")

If Worksheets("Feuil4").ListObjects.Count <> 1 Then MsgBox "Nombre de tableau non valide": Exit Sub
Worksheets("Feuil4").ListObjects(1).Name = ActiveWorkbook.Name

End Sub