Bonsoir à tous,

J'ai besoin d'un coup de main car je n'arrive pas à franchir un obstacle vital.
Je suis entrain de créer une macro pour automatiser un TCD et tout se passe bien sauf un point : je voudrais que le TCD puisse se créer quelque soit le nom de l'onglet qui contient la source de données.

Voici le code actuel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'Commercial 1'!R3C1:R1500C28").CreatePivotTable TableDestination:="", _
        TableName:="TCD", DefaultVersion:=xlPivotTableVersion10
Le code fait actuellement référence à l'onglet "commercial 1" mais comme chaque utilisateur doit mettre son nom à l'onglet, "commercial 1" peut devenir "Patrick", "Christophe"...
j'ai bien tenté de mettre le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "sheets(1)!R3C1:R1500C28").CreatePivotTable TableDestination:="", _
        TableName:="TCD", DefaultVersion:=xlPivotTableVersion10
mais ça ne marche pas...

Des idées ?
Merci beaucoup et bon développement à tous !
Nicolas