Renommer un tableau Excel en vba

lebtibo33 -  
sipherion Messages postés 2462 Statut Membre -
Bonjour,

Je cherche à renommer un tableau, que je copie depuis une autre feuille, en vba.
J'arrive à sélectionner le tableau mais je ne parvient pas a renommer ce dernier.
voila la formule que j'utilise:

Sheet = TextBox1

Sheets("Template (2)").Name = Sheet
Sheets(Sheet).Select
End With
With ActiveSheet
ActiveSheet.Range("A15").CurrentRegion.Select
Dim tcd As String
tcd = Worksheets(Sheet).ListObjects(1).Name
Worksheets(Sheet).ListObjects(1).Name.Add Name: Sheet , "=" & tcd
ActiveWorkbook.Names(Sheet).Comment = ""

ça me signal une erreur sur l'avant dernière ligne.
est ce que quelqu'un connait la manière dont je peux procéder pour y arriver?
Merci d'avance!!!

A voir également:

1 réponse

Réponse 1 / 1
sipherion Messages postés 2462 Statut Membre 286
 
Salut,

Alors j'ai pas tout bien compris, est ce que tu veux renommer une feuille de ton classeur Excel (par exemple feuil1, feuil2, etc.) ou tout le classeur (par exemple classeur 1.xls) ?

Ensuite le code 
End With
With ActiveSheet

ne peut pas fonctionner, le 
With ActiveSheet
doit être avant le 
End With
0