Mise en page excel vers PDF en VBA

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:

---

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:

---

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

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:

---

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

---

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

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

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 ?

Pièce jointe 285921Salut 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:

---

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 :

Pièce jointe 285921
Pièce jointe 285922

Salut,

Citation:

---

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

---

..... et tu veux que l'on joue les devins, comme déjà dit plusieurs fois, je ne pratique pas l'extispicine.

Bonjour,

Comment ca? je ne vous est pas demandé de résoudre mon problème mas tous simplement de me fournir un exemple d'un fichier Excel contenant des graphiques, avec une macro qui l'enregistre sous forme de PDF et que ces graphiques soient présent aussi dans ce dernier .

Merci !