Discussion :

[hthiriez]

Bonjour !

Voici le code VBA qui présente mon problème :

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
Sub Adobe()
 
' Je cherche a imprimer un fichier Excel en pdf en spécifiant le nom du fichier
 
'*** Pensez à adapter l'adresse d'impression Adobe à la vôtre !
 
' Quand j'utilise la commande sans nom ci-apres, cela marche bien...
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Adobe PDF sur Ne04:", Collate:=True
 
' Quand j'active la commande ci-dessous, la syntaxe bloque
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Adobe PDF sur Ne04:", PrintToFile:="Jules.pdf", Collate:=True
 
' Quand j'active la commande ci-dessous, ça plante meme si je fais
' ce qui est demande dans les Options d'Adobe...
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Adobe PDF sur Ne04:", Collate:=True, PrToFileName:="Jules.pdf"
 
End Sub

Comment faire pour spécifier le chemin et le nom du fichier pdf ?

Merci d'avance !

[fring]

Bonjour,

As-tu essayé en spécifiant le nom et le chemin complet ?
Exemple :

Code :

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

PrintToFile:="C:\Temp\Jules.pdf"

[hthiriez]

Cela ne marche pas mieux avec le chemin, ni avec la seconde ni avec la troisième instruction...

[fring]

Je n'ai pas testé mais peut-être que cet article dans la FAQ pourra t'inspirer

Comment créer un fichier PDF en pilotant Acrobat Distiller ?

.

[peofofo]

Si tu trouves la solution hthiriez peus tu la mettre sur ce topic, le sujet m'intéresse également.

[kiki29]

Salut,
Voir aide en ligne sur PrintOut
Avec Distiller PrToFileName génère un fichier ps ( PostScript ) et non un pdf
Le N° d'imprimante Nexy change suivant le PC sur laquelle la macro tourne
Il faut prédéfinir soit manuellement ou par programmation pour chaque feuille la zone et le format d'impression

voir http://www.developpez.net/forums/sho...d.php?t=431662
qui est maj avant la FAQ http://excel.developpez.com/faq/?pag...erPdfDistiller

[Godzestla]

Salut,

je viens de développer une solution qui fonctionne parfaitement avec CutePdf Writer et Ghostscript.

-CutePDF Writer pour imprimer dans un fichier Postcript (.PS) temporaire
-Ghostcript pour convertir le .PS en PDF.

Elle permet meme, c'est en fait le but, de mixer dans un seul pdf tous les worksheets sélectionnés qu'ils soient en portrait ou en paysage.

Je suis toujours en train de travailler sur le programme de setup, qui n'est pas totalement pret.

Mais si tu veux je peux t'expliquer comment installer CutePdfWriter et Ghostscript 8.61 (facile) et puis je te passe mon code, qui entre autres installe une barre d'outil avec 2 icones pour générer le PDF :
- Icone 1 : Interactif avec notification de fin et fullname du pdf créé
- icone 2 : Mode silencieux

Pour utiliser, lorsque c'est installé, il suffit de cliquer une icone et ton PDF est créé automatiquement à l'endroit de ton fichier excel, avec le meme nom.

Pas besoin de se soucier du nom de l'imprimante ou de celle qui est par défaut.
C'est géré dans le code.


Je travaille sur la version suivante qui montre aussi le PDF, mais tu pourras faire cela seul je suppose.

Dis moi si tu es intéressé. Il me faut au moins 2 heures pour terminer mon proc de setup (version béta 0) pour que tu puisses l'utiliser.

En attendant, je pourrai déjà te dire ou télécharger CuteWriter et Ghostscript 8.61.

CutePDF Writer (Free) : http://www.cutepdf.com/download/CuteWriter.exe
Ghostscript 8.61 (Free) : http://downloads.sourceforge.net/gho...6&big_mirror=1

[hthiriez]

Bonjour,

Avec la suggestion de "fring" plus celle trouvée sur une autre adresse (listée au début du code VBA), j'ai deux macros VBA qui plantent toutes les deux. Voici leur code :

' http://excelguru.ca/node/22

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Option Explicit
Sub PrintToPDF_Late()
'Author       : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
'   (Download from http://sourceforge.net/projects/pdfcreator/)
'   Designed for late bind, no references req'd

    Dim pdfjob As Object
    Dim sPDFName As String
    Dim sPDFPath As String

    '/// Change the output file name here! ///
    sPDFName = "testPDF.pdf"
    sPDFPath = ActiveWorkbook.Path & Application.PathSeparator

    'Check if worksheet is empty and exit if so
    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub

    Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")

    With pdfjob
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Can't initialize PDFCreator.", vbCritical + _
                vbOKOnly, "PrtPDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sPDFPath
        .cOption("AutosaveFilename") = sPDFName
        .cOption("AutosaveFormat") = 0    ' 0 = PDF
        .cClearCache
    End With

    'Print the document to PDF
    ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator"

    'Wait until the print job has entered the print queue
    Do Until pdfjob.cCountOfPrintjobs = 1
        DoEvents
    Loop
    pdfjob.cPrinterStop = False

    'Wait until PDF creator is finished then release the objects
    Do Until pdfjob.cCountOfPrintjobs = 0
        DoEvents
    Loop
    pdfjob.cClose
    Set pdfjob = Nothing
End Sub

Sub Tst_Adobe_PDF()
Dim sNomFichierPS As String
Dim sNomFichierPDF As String
Dim sNomFichierLOG As String
Dim PDFDist As PdfDistiller
Dim PrinterDefault As String
Dim sUserProfile As String
 
    sUserProfile = Environ("USERPROFILE")
    
    PrinterDefault = Application.ActivePrinter
    Application.ActivePrinter = Imprimante_AdobePDF
   
    ' Ici le cas d'un PC "Entreprise"
    sNomFichierPS = sUserProfile & "\" & "Essai_AdobbePDF.ps"
    sNomFichierPDF = sUserProfile & "\" & "Essai_AdobbePDF.pdf"
    sNomFichierLOG = sUserProfile & "\" & "Essai_AdobbePDF.log"
 
    ActiveSheet.Range("Zone").PrintOut Copies:=1, Preview:=False, _
                                       ActivePrinter:="Acrobat PDF", PrintToFile:=True, _
                                       Collate:=True, PrToFilename:=sNomFichierPS
 
    Set PDFDist = New PdfDistiller
    PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, ""
    Set PDFDist = Nothing
 
    Kill sNomFichierPS
    Kill sNomFichierLOG
 
    Application.ActivePrinter = PrinterDefault
End Sub

Avec la première macro :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
bloque avec le message "Erreur 429 - Un composant ActiveX ne peut pas créer d'objet".

Avec la seconde macro :
Dim PDFDist As PdfDistiller
bloque avec le message : "Erreur de compilation - Type non défini par l'utilisateur".

[hthiriez]

Merci de la suggestion mais je cherche une solution qui ne passe pas par l'installation d'autres logiciels car cela doit être utilisé par des cadres d'entreprise qui n'ont pas tous les droits sur leur PC de travail...

[kiki29]

Salut,dans http://www.developpez.net/forums/sho...d.php?t=431662
sous VBE Menu Outils | Références cocher Acrobat Distiller

[Godzestla]

Salut hthiriez,

Merci de la suggestion mais je cherche une solution qui ne passe pas par l'installation d'autres logiciels car cela doit être utilisé par des cadres d'entreprise qui n'ont pas tous les droits sur leur PC de travail...

Normallement si PDFCreator a pu être installé, CuteWriter et GHostscript le peuvent aussi.

Pour info, la version qui affiche le PDF est terminée.
Cela tourne via toolbar sous Excel et Word.

Bonne journée.

[fabal36]

Salut Godzestla,

J'utilise aussi CuteWriter et Ghostscript quotidiennement.
Je n'ai pas encore eu le temps de me pencher sur l'automatisation de l'impression, mais ta solution m'intéresse si tu es d'accord pour la partager biensur.

Merci d'avance.

[Godzestla]

Salut fabal36,

pas de problème pour partager ma solution, bien sûr et avec plaisir.

La voici (garantie sans virus et autre saloperie).
Les explication sont dans "Installation Cutepdf Advanced Printing for Excel.doc"

Merci de me donner ton feedback. Pièce jointe 32688

[Godzestla]

Attention :

Pour ceux qui ont testé le code avant le 27/06 18h00 il y avait un bug.

(Progressbar qui ne marche pas car pas transmise avec les fichiers .xls et .doc)

J'ai enlevé le bug. Vraiment désolé. C'est en faisant une autre installation que je suis tombé sur le problème.

Le code est dans mon post précédent.

[casefayere]

Bonjour,
je n'ai pas trop suivi tout la discussion mais voici une procedure à adapter pour donner un nom au fichier et enregistrer en pdf

pour moi, ça marche mais peut-etre que tu ne cherche pas ça

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
If ActiveSheet.Name = "devis" Then
nomdossier = "archives_devis"
Else
nomdossier = "archives_factures"
End If
racine = Workbooks(ActiveWorkbook.Name).Path
 
Dir Workbooks(ActiveWorkbook.Name).Path
ChDir racine 'se place sur le repertoire du programme
 
If (verif = Dir(racine & "\" & nomdossier & "\", vbDirectory)) = vbEmpty Then 'On teste l'existence du répertoire nomdossier
    repert = racine & "\" & nomdossier
    Else
    MkDir racine & "\" & nomdossier 'on le crée s'il n'existe pas
    repert = racine & "\" & nomdossier
End If
ChDir repert
trouver_nb_fact 'module pour compter mes fichiers en archive
    'variable du dossier "annee"
    rep_annee = VBA.Format(Now(), "yyyy") 'classement dans le rep "année"
If (verif = Dir(repert & "\" & rep_annee, vbDirectory)) = vbEmpty Then 'On teste l'existence du répertoire "année"
    repert = repert & "\" & rep_annee
Else 'on le crée s'il n'existe pas
     MkDir rep_annee
    repert = repert & "\" & rep_annee
End If
ChDir repert
    'variable du dossier "mois"
    rep_mois = VBA.Format(Now(), "mm") 'classement dans le rep "mois"
If (verif = Dir(repert & "\" & rep_mois, vbDirectory)) = vbEmpty Then 'On teste l'existence du répertoire...
    repert = repert & "\" & rep_mois
Else 'on le crée s'il n'existe pas
    MkDir repert & "\" & rep_mois
    repert = repert & "\" & rep_mois
End If
    'variable du dossier "jour"
    rep_jour = VBA.Format(Now(), "yyyy mm dd") 'classement dans le rep "jour"
    'vérifie si le dossier "jour" existe, sinon le crée
If (verif = Dir(repert & "\" & rep_jour, vbDirectory)) = vbEmpty Then
    repert = repert & "\" & rep_jour
Else
    MkDir repert & "\" & rep_jour
    repert = repert & "\" & rep_jour
End If
'ensuite c'est ma tambouille
'vérifie si le nom et adresse du client a bien été précisé
nomfeuil = ActiveSheet.Name
If Sheets(nomfeuil).Range("e2") = "" Then
    MsgBox "le nom du destinataire n'a pas été précisé"
    Sheets(nomfeuil).Range("e2").Select
    FACTURE.Show
    Exit Sub
End If
dateref = Now
nomcle = Sheets(nomfeuil).Range("e5")
Sheets(nomfeuil).Range("f1") = VBA.Format(dateref, "yy mm dd") & " " & nomcle & VBA.Format(inombre + 1, "0000")
nomfichier = Replace(Sheets(nomfeuil).Range("f1"), " ", "")
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       repert & "\" & nomfichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
 
End Sub

[kiki29]

et pourtant tu devrais, ta solution ne fonctionne que sous 2007 avec un complément à télécharger

[Godzestla]

Mais c'est toujours intéressant.

casefayere

[casefayere]

Merci godzestla,
on doit pouvoir adapter à une version antérieure.

Moi j'en bave plus (j'imagine) en adaptant à 2007

[Godzestla]

Non,
ce n'est pas du tout compatible avec une version antérieure car pour 2007 tu peut télécharger du code gratuit qui n'existe pas pour 2003.

D'ou mon systeme qui marche avec +- tout

Bonne soirée à toi.