Discussion :

[sasafca]

Bonjour,

voici mon problème:

J'execute une requête que j'exporte ensuite sous format xlsm, toutes mes données sont alors importées sous excel et un tableau se créer automatiquement (pour contenir mes données).
Voici le travail que j'aimerai bien exécuter à l'aide d'une requête:
-je dupplique la Feuil1 contenant toutes mes données en Feuil2
-je recomme le nom de mes colonnes dans Feuil2

Mais voila le problème, les données appartiennent donc à un tableau qui change de nom à chaque fois (Tableau + n° du tableau, incrémenté automatiquement par Excel).
Il faudrait donc que la macro renomme le tableau de la feuil2, peut importe le nom qu'il a.

En gros voici ma macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy Before:=Sheets(2)
    Sheets("Feuil2").Select
    ActiveSheet.ListObjects("Tableau_Matériel3").Unlist
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Test"

Le problème vient donc du "3", qui s'ajoute automatique.
Il me faudrait donc le code qui permet de renommer le tableau de l'activeSheet sans connaître son nom actuel.

Merci !!

[sasafca]

J'ai réussi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub RenameTableAtCell()
    With ActiveSheet
         .Range("A2").ListObject.Name = "MonTableau"
    End With
End Sub

Mais est-il possible de faire ceci pendant l'enregistrement de la macro ?