Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Diop
  • Date de début
D

Diop

Guest
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
 
P

Pascal76

Guest
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
 

Discussions similaires

Réponses
1
Affichages
592
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…