Discussion :

[bibi5883]

Bonjour,

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

Merci d'avance.

[PascGuil]

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]

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]

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]

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]

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]

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

[kiki29]

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

[kiki29]

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]

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:

[bibi5883]

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

Parceque j'ai bien PDF Creator sur mon poste.

[kiki29]

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

[bibi5883]

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.