rendre une macro de tcd utilisable dans n'importe quelle feuille

[Diop]

Bonjour à tous

j'ai une feuille de calcul qui sort chaque mois avec un nom "ExtractionBO_01_01 pour janvier ainsi de suite pour fevrier etc...
J'ai crée une macro pour me faire le tcd de cette feuille mais je ne sais pas comment resoudre le probleme de la feuille nommée

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"ExtractionBO_04_04_original!R1C1:R37899C2").CreatePivotTable TableDestination _
:="", TableName:="Tableau croisé dynamique3"

lorsque j'utilise la macro pour mars par exemple çà ne marche pas car vba va toujours chercher à trouver une feuille nommée "ExtractionBO_04_04_original" çàd le mois d'avril

j'ai envie de trouver une solution qui me permettent de ne plus lui dire de tenir compte du nom de la feuille j'ai essayé avec les plages nommées mais çà ne marche pas. Pourtant çà, devrait l'etre car je l'ai vu dans un bouquin

Au secours alors les amis

 

[Pascal76]

Salut

Si tu veux que cela se réalise sur ta feuille active tu peux ajouter en début de code

MaFeuille =activesheet.name

et ensuite

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
MaFeuille & "!R1C1:R37899C2").CreatePivotTable TableDestination _
:="", TableName:="Tableau croisé dynamique3"

Bon courage

Pascal

 

[Diop]

çà marche je vous remercie de votre aide
bon week end à tous