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
 

Fichiers joints

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...
 

harry226h

XLDnaute Junior
Bonjour Chris, merci pour la proposition, je la teste et je te reviens.
Désolé pour le multipost, j'avais pas de reponse et je commencais a desespérer
 

Discussions similaires


Haut Bas