XL 2010 Vba, TCD filtre par cellule et extraction

harry226h

XLDnaute Junior
Bonjour le forum
Je me retourne vers vous une fois de plus.
Je bloque sur une manip, depuis presque 3h et jm'en remet a vous.
Dans le fichier jointJ'aimerais en cliquant sur le bouton de l'userform, faire via vba un trie dans le champs mois du tcd en fonction de la valeur de la cellule E1.
Ensuite extraire la page du rapport(onglet graphique) en pdf
Et enfin extraire la feuille base en xls.
Merci d'avance
 

Pièces jointes

  • BASE1 (1).xlsm
    479.8 KB · Affichages: 18

chris

XLDnaute Barbatruc
Bonjour

Tu parles de tri mais semble plutôt évoquer un tri.

Pourquoi une cellule E1 pour choisir le mois alors que le champ mois est dans le TCD a un champ mois en B1 ?

Voir la propriété currentPage

Code:
With Worksheets("GRAPHIQUE").PivotTables("Tableau croisé dynamique1")
    .PivotFields("Mois").ClearAllFilters
    .PivotFields("Mois").CurrentPage = "Jan"
End With

Sur 2010 tu peux enregistrer en pdf ainsi
Code:
    Worksheets("GRAPHIQUE").ExportAsFixedFormat Type:=xlTypePDF, Filename:="T:\TEMP\Nom.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

Et pour une feuille en Excel
Code:
    Worksheets("Base").Copy
    ActiveWorkbook.SaveAs Filename:="T:\TEMP\Nom.xlsx"
    ActiveWorkbook.Close
en adaptant le chemin et nom dans les 2 cas

Je ne pense pas que poster sur n forums, avec une question tantôt ici, tantôt là, soit la meilleure solution...
 

Discussions similaires

Réponses
6
Affichages
217

Statistiques des forums

Discussions
311 720
Messages
2 081 925
Membres
101 841
dernier inscrit
ferid87