Discussion :

[com-ace]

Bonjour

Je suis devant une difficulté imprévue et à mes yeux (et compétences) incompréhensible.
Je fais une impression directe d'une feuille excel en ADOBE PDF (imprimante par défaut)
Je crée bien un fichier PDF mais celui est illisible par ADOBE.

Je n'ai pas trouvé la solution.

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
----------------------------------------------------------------------------------------------------
Sub Editer_pdf()
 
    Dim Ligne As Variant
    Dim Nomfichier As Variant
 
    If ActiveCell.Row > Sheets("Liste").Range("LISTENUMLIG") Or ActiveCell.Row < 8 Then
      MsgBox ("Placez vous sur la ligne de la facture à visualiser !")
      Exit Sub
    End If
 
    Ligne = ActiveCell.Row
    Sheets(Sheets("Liste").Range("L" & Ligne).Value).Select
 
'-----------------------------------------------------------------------------
    Dim PrinterDefault As String
    Dim CurentPrinter As String
 
    PrinterDefault = Application.ActivePrinter
    CurentPrinter = Application.ActivePrinter
 
    Application.ActivePrinter = "Adobe PDF sur Ne03:"
 
    Nomfichier = "G:\Factures PDF\" & Sheets("Liste").Range("L" & Ligne) & ".pdf"
    ActiveSheet.PrintOut PrintToFile:=True, PrToFileName:=Nomfichier
 
End Sub
-------------------------------------------------------------------------------------------------------

Merci de votre aide

[kiki29]

Salut, c'est normal : en fait là tu génères un fichier PostScript (ps) et non un Pdf.

Voir ici où tu trouveras la réponse à ton problème.

PS : Cependant depuis Excel 2007 SP2 le format Pdf est inclus en natif dans Excel. Et donc plus réellement besoin de tout ce cirque. De plus ce n'est pas le bon forum.

Au final un code du genre suivant devrait être suffisant :

Code :

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

1
2
3
4
5
6
7
8
Dim sNomFichier As String
 
    sNomFichier = ThisWorkbook.Path & "\" & "Triboulet.pdf"
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            sNomFichier, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            False

[com-ace]

Merci de ta réponse. Cela fonctionne