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.
Merci de votre aide
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 -------------------------------------------------------------------------------------------------------
Partager