Mettre une feuille Excel en pdf

**bibi5883** · 08/08/2007, 09h59

Bonjour,

quelqu'un pourrait-il m'espliquer comment on met une feuille excel en format PDF?

Merci d'avance.

**PascGuil** · 08/08/2007, 10h15

Salut,

C'est le même principe que pour faire une impression sur une imprimante classique seulement ici tu sélectionnes le logiciel qui génère des pdf

Code :

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

1
2
3
4
' Ce code génère la boîte de dialogue imprimer
Private sub Imprimer_pdf()
    Application.dialogs(xldialogPrint).show
End Sub

Code :

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

1
2
3
4
5
' Ce code s'électionne automatiquement l'imprimante pdf
Private sub Imprimer_pdf()
   Application.ActivePrinter = "Adobe pdf sur Ne03:"
   ActiveWindows.SelectedSheets.PrintOut
End sub

Voilà j'espère avoir répondu à ta question
Bon courage

**kiki29** · 08/08/2007, 10h21

Si tu n'a pas Acrobat/Distiller il te reste PDFCreator http://sourceforge.net/project/showf...group_id=57796

Il y aurait un bug dans la version 0.9.3 qui n'existait pas avant et qui fait
que le processus PDFCreator reste actif ?

**bibi5883** · 08/08/2007, 10h28

oui, je pense que c'est la réponse à ma question

Mais je ne trouve pas dans ma liste d'imprimante, le logiciel qui génère les pdf. Quest ce que je dois faire?

**bibi5883** · 08/08/2007, 10h44

délolée pour le dernier message, merci pour ton aide, c'est bien ce que je voulais, il me manque juste acrobate distiller sur mon poste, j'ai fait une demande au service info de ma boite. Dès que je l'ai, je teste tes macros et je te dis si ca marche.

Merci Beaucoup.

**PascGuil** · 08/08/2007, 10h50

As-tu adobe acrobat reader ou autre pour la lecture des fichiers pdf?
sinon va sur le site de http://www.01net.com!
voilà

**bibi5883** · 08/08/2007, 11h45

j'ai adobe acrobat reader, il me manque que Acrobat/Distiller

**kiki29** · 08/08/2007, 12h19

En attendant tu peux installer PDFCreator c'est gratuit contrairement à Acrobat/Distiller et tester

**bibi5883** · 09/08/2007, 15h06

Bonjour,

j'ai finamlement obtenu PDFCreator, j'ai utilisé la macro de PascGuil et ça me génère bien mon pdf. Merci

Maintenant si quelqu'un avait la gentillesse de m'expliquer comment renommer et enregistrer les fichier pdf en même ca serait super.

Merci.

**kiki29** · 09/08/2007, 21h31

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 Tst_PdfCreator()
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String
 
    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
    sNomPDF = "Essai.pdf"
    sCheminPDF = ThisWorkbook.Path & Application.PathSeparator
 
    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
        .cOption("AutosaveFormat") = 0
        .cClearCache
    End With
 
    ActiveSheet.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

**bibi5883** · 10/08/2007, 09h03

Bonjour, ton code est bien, mais j'ai un message d'erreur quand je l'éxécute, ca fait plus d'une heure que je suis dessus et je n'arrive pas à voir d'où ca vient.

voici la partie du cde qui me pose problème:

Code :

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

Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")

et voici le message d'erreur que j'obtiens:
Nom : copie ecran vba.JPG
Affichages : 166
Taille : 9,0 Ko

**bibi5883** · 10/08/2007, 09h34

Faut-il une licence spéciale pour avoir l'objet : "PDFCreator.clsPDFCreator"????

Parceque j'ai bien PDF Creator sur mon poste.

**kiki29** · 10/08/2007, 10h46

http://sourceforge.net/projects/pdfcreator PDFCreator-0_9_3_GPLGhostscript.exe
Voir aide en ligne sur erreurs récupérables

**bibi5883** · 10/08/2007, 11h19

je ne trouve rien qui puisse m'aider sur ce site. Par contre j'ai trouver un truc, dans "Outils, Référence" Est-ce que vous savez quoi cocher pour poouvoir utiliser : PDFCreator.clsPDFCreator?

merci.

**kiki29** · 10/08/2007, 13h15

PDFcreator
Mais normalement cela n'est nécessaire que si le code avait été

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
 
Sub Tst_PdfCreator2()
Dim JobPDF As PDFCreator.clsPDFCreator
Dim sNomPDF As String
Dim sCheminPDF As String
 
    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
    sNomPDF = "Essai.pdf"
    sCheminPDF = ThisWorkbook.Path & Application.PathSeparator
 
    Set JobPDF = New 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
        .cOption("AutosaveFormat") = 0
        .cClearCache
    End With
 
    ActiveSheet.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

qui donne accès aux méthodes/propiétés via completion, ce qui n'est pas le cas du 1er code

**bibi5883** · 10/08/2007, 14h17

Non, non, même avec le code que tu m'a donné, il faut PDFCreator, mais j'ai fini par télécharger moi même PDF Creator sur le disque dur local. Le support info de ma boite avait n'importe quoi.
En tout cas merci beaucoup, ca marche super bien.

**kiki29** · 10/08/2007, 15h15

Bien sur il faut PDFCreator et qu'il soit correctement installé, c'est tellement evident
Par contre la référence n'est pas nécessaire dans le 1er exemple de code

**bibi5883** · 10/08/2007, 17h04

sisi , il le fallait, ca marchait pas sans.
Maintenant ca marche.

**kiki29** · 10/08/2007, 18h29

Curieux le 1er code sans Référencement de PDFCreator via Outils | Références PDFCreator doit fonctionner tel quel sans avoir à cocher PDFCreator.Ce qui est le cas sur mon PC

Mettre une feuille Excel en pdf

Macros et VBA Excel

Discussions similaires

Partager

Partager