Renommer un tableau Excel en vba

Fermé

lebtibo33 - 12 déc. 2013 à 15:52
sipherion Messages postés 1809 Date d'inscription lundi 22 octobre 2007 Statut Membre Dernière intervention 19 décembre 2016 - 18 déc. 2013 à 15:42

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:

Renommer un tableau Excel en vba
Trier un tableau excel - Guide
Tableau word - Guide
Comment imprimer un tableau excel sur une seule page - Guide
Liste déroulante excel - Guide
Renommer plusieurs fichiers en même temps - Guide

1 réponse

Réponse 1 / 1

sipherion Messages postés 1809 Date d'inscription lundi 22 octobre 2007 Statut Membre Dernière intervention 19 décembre 2016 285
18 déc. 2013 à 15:42

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