Discussion :

[shakapouet]

Bonjour,

Je vous expose mon problème.
J'ai un fichier excel qui me génère des feuilles automatique ou on y place des tableau et des graphiques. A la fin de la génération de ces documents je souhaite récupérer dans un fichier PDF toutes mes feuilles créé. Pour convertir mes feuilles excel en PDF j'utilise cette fonction qui marche très bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub ToPdf()
 
    Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
    NomExcel = ThisWorkbook.Name
    NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"
 
    With pdfjob
        If .cstart("/NoProcessingAtStartup") = False Then
            MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutisaveDirectory") = 1
        .cOption("AutosaveDirectory") = ThisWorkbook.Path
        .cOption("AutosaveFilename") = NomPdf
        .cOption("AutosaveFormat") = 0
        .cClearCache
    End With
 
    ThisWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
    Do Until pdfjob.cCountOfPrintjobs = 1
        DoEvents
    Loop
 
    pdfjob.cPrinterStop = False
 
    Do Until pdfjob.cCountOfPrintjobs = 0
        DoEvents
    Loop
 
    With pdfjob
        .cDefaultprinter = DefaultPrinter
        .cClearCache
        .cClose
    End With
 
    Set pdfjob = Nothing
 
End Sub

Le problème que j'ai c'est que mes feuilles Excel sont trop large pour tenir sur une page PDF. Voir photo01

http://imageshack.us/photo/my-images...nstitreayk.jpg

Pour palier à ce problème j'utilise une macro qui adapte mon tabeau sur une page à l'aide de ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveWindow.View = xlPageBreakPreview
        ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
        ActiveWindow.View = xlNormalView

Cela fonctionne bien et me donne ce résultat sur le PDF si je n'affiche pas mes graphique dans la mise en page.

http://imageshack.us/photo/my-images...nstitre3wl.jpg

Et quand j'insère mes graphiques cela me donne ça :

http://imageshack.us/photo/my-images...nstitre2sh.jpg

Voila quelqu’un pourrait il m'aider à palier ce problème, car je veut absolument afficher une feuille excel par page. Je suis ouvert à toute proposition.

Cordialement

[kiki29]

Salut, déjà à partir d'Office 2007 le format Pdf est intégré en natif dans Office

ensuite insère tes graphiques chacun dans une nouvelle feuille, par défaut le nom de ces feuilles sera du style GraphXX
voir sur http://www.developpez.net/forums/d43...bat-distiller/ en bas du Post #1 Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant

Tu devrais aboutir au code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Application.ScreenUpdating = False
    Sheets(Array("Feuil1", "Graph1")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:="C:\Transfert\Classeur1.pdf", _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=False
    Sheets("Feuil1").Activate
    Application.ScreenUpdating = True

[shakapouet]

Merci pour ta réponse.

La ça me permet de mettre mes graphiques a chaque fois sur une nouvelle feuille et ensuite pouvoir sélectionner les feuilles à mettre dans le pDf.

Peut être que j'ai mal compris, mais il faut que chaque fiche de transporteur que j'ai soit joint avec les tableau dans la même page PDF. Si ils ce trouve dans les pages suivant l'affichage des tableau, ça ne sera pas bon.

Voila si tu peux m'éclairer un peut plus.

Merci

[kiki29]

re, apparemment tu ne veux pas faire le choix de la lisibilité

[shakapouet]

Tu veux dire que si je met tous sur la même feuille, les données seront illisible.

Je ne comprend pas car, quand je n'affiche pas les graphiques, le tableau est bien lisible comme je l'ai mit dans mon screenshot et il reste le bas de la page qui est vide. Donc il devrait y avoir la place pour mettre les graphiques.

Pourrais tu m'éclaire un peut plus sur la vision que tu me proposais ?

[barox07]

Salut tous le monde ,
je viens de lire votre discussion qui contient une solution à mon problème, a un premier temps j'ai réussi à le résoudre mais après je ne sais ce qui a changé dans mon code pour que sa ne fonctionne plus , le problème c'est quand j'enregistre sous mon classeur excel qui contient des graphiques en pdf avec vba mais quand j'ouvre le pdf je ne trouve pas les graphique :/
voila le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub enregistrement_pdf(Fichier_source As String, Fichier_destination As String)
Dim wbRapp As Excel.Workbook
' ouverture du fichier
   Set wbRapp = Workbooks.Open(Fichier_source)
  ' wbRapp.Sheets (Array("Rapport", "Annexe1", "Annexe3", "Annexe4"))
   wbRapp.Sheets.Select
 
' sauvegarde du fichier au format pdf
    wbRapp.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=Fichier_destination, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
' fermeture du fichier
    wbRapp.Close
    Set wbRapp = Nothing
End Sub

voila des IMP Ecran :