VBA impression d'un TCD avec un pdf par page
Bonjour à tous,
Je m'informe régulièrement sur ce forum que je trouve d'une grande qualité.
Je me permets pour la première fois de vous soliciter pour une chose que je n'arrive pas à faire :
Dans une page j'ai un tableau croisé dynamique. Un des champs de groupement (en l’occurrence "agence") est réglé pour une impression avec un saut de page après chaque élément.
Mon TCD s'imprime donc avec une page par "agence".
J'utilise le code suivant pour l'enregistrement en VBA :
Code:
1
2
3
4
5
6
7
8
|
Dim Name As String
Name = ActiveWorkbook.Path & "\" & "Relances affaires " & _
Format(Now(), "dd.mm.yy hh.mm") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Name, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
MsgBox "Enregistré sous : " & Name |
Ce qui me donne un seul fichier PDF dans le répertoire de mon classeur excel avec le nom "Relances affaires" suivi de la date et de l'heure d'impression.
Ce que je souhaite faire c'est avoir une édition avec un PDF par page (par "agence") et que le nom des fichiers devienne : Relance affaire, suivi du nom de "agence", et enfin suivi de la date et heure. Ex: Relance affaires Nancy 17.11.15 14.35.pdf, Relance affaires Metz 17.11.15 14.35.pdf etc...
Je ne sais pas comment m'y prendre...
Avez vous des idées pour m'orienter ?
Je vous remercie d'avance.
