Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1265 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Générer un pdf à partir d'un tableau croisé dynamique

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Générer un pdf à partir d'un tableau croisé dynamique

n°2088730
LameDeFond​d
Posté le 11-07-2011 à 17:03:05  profilanswer
 

Bonjour tout le monde.
 
J'ai regroupé sur excel une foule de données concernant la RH d'une entreprise dans deux tableaux croisés dynamiques.
Ces données sont groupées pour chaque service de l'entreprise.
J'aimerai générer un pdf à partir de ses TCD  avec une page concernant chaque service de manière à pouvoir répartir chaque ratio aux services intéressés.
Je pense que cela doit pouvoir se faire en VB, mais n'y connaissant pas grand chose je n'en sais rien!
 
Je ne vois pas comment procéder, quelqu'un pourrait il m'aider?
Cordialement,
 
LdF

mood
Publicité
Posté le 11-07-2011 à 17:03:05  profilanswer
 

n°2088777
kiki29
Posté le 11-07-2011 à 18:55:10  profilanswer
 

Salut, si Excel 2007 et plus : le format PDF est intégré en natif
si Acrobat Distiller voir sur http://www.developpez.net/forums/d [...] distiller/
Pour PDFCreator tu devrais aboutir à qqch comme


Option Explicit
 
Sub TstPdfCreator()
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String
 
    sNomPDF = "Essai.pdf"
    sCheminPDF = ThisWorkbook.Path & "\"
 
    Set JobPDF = CreateObject("PDFCreator.clsPDFCreator" )
 
    With JobPDF
        If .cStart("/NoProcessingAtStartup" ) = False Then
            MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave" ) = 1
        .cOption("UseAutosaveDirectory" ) = 1
        .cOption("AutosaveDirectory" ) = sCheminPDF
        .cOption("AutosaveFilename" ) = sNomPDF
 
        '   0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt
        .cOption("AutosaveFormat" ) = 0
        .cClearCache
    End With
 
    Sheets("Feuil2" ).PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    JobPDF.cPrinterStop = False
 
    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
 
    JobPDF.cClose
    Set JobPDF = Nothing
End Sub


---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
n°2088958
LameDeFond​d
Posté le 12-07-2011 à 15:01:35  profilanswer
 

Merci pour ta réponse prompte! J'utilise Excel 2007, mais je vois pas comment exporter le TCD en pdf avec un partage des pages par service! Je suis en train de chercher mais peut etre as tu une indication à me soumettre?


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Générer un pdf à partir d'un tableau croisé dynamique

 

Sujets relatifs
Générer fichier word avec des données d'une page Web[VB .NET] Comment avoir une colonne d'un tableau deux dimensions
Creation d'un menu dynamiquefeuille de calcul dynamique dans une page html
Execution d'une Macro Access a partir d'un code C#[Résolu] Création d'un tableau imbriqué à partir d'un tableau simple
Générer aléatoirement du texte sur une imageCalcul d'une valeur dans un tableau double entrée
Creation d'une variable a partir d'une autre 
Plus de sujets relatifs à : Générer un pdf à partir d'un tableau croisé dynamique


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR