Discussion :

[yellowdog]

Bonjour,

Depuis la migration d'Acrobat Pro 4.0 en version 10.1.1 , mes éditions de fichier XLS au format PDF ne se fait plus.

Lorsque le VBA s'exécute en version Acrobat 10, une fenetre (popup) nommée Creating Adobe PDF apparait me demandant un nom de fichier pour générer le fichier PDF.

La ligne de commande utilisée en VBA est:

Code :

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

1
2
3
4
If Dir(outputFilename) = "" Then
            SetPrivateProfileSetting iniFilename, 0, "Acrobat PDFWriter", "PDFFileName", outputFilename
            theDoc.PrintOut ActivePrinter:=PDFWriterName
End If

Y a-t-il un paramètrage dans ACROBAT ou au niveau de l'imprimante Acrobat PDF Writer ou bien une modification du code suite à la nouvelle version d'acrobat ?

Pouvez vous m'aider sur ce problème bloquant ?

[jijie]

Bonjour,

ici : http://www.developpez.net/forums/d13...egarde-en-pdf/

Mais tu voudrais en faire quoi du PDF?

[yellowdog]

En fait une fois le fichier PDF généré, il est copié dans un répertoire sur un serveur différent que celui qui l'a généré.

Mais j'ai l'impression que le problème est dû à un mauvais paramètrage d'acrobat X Pro qui automatiquement me demande de saisir un nom de fichier pour pouvoir générer le fichier PDF.

[jijie]

Bonjour,

et si tu essaye ç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
Sub PdF()
 Dim pdfjob
Dim NomExcel, NomPdf, DefaultPrinter
 
NomExcel = ThisWorkbook.Name
NomPdf = "Facture" & ".pdf"
Dim sNomFichierPDF As String
 
    sNomFichierPDF = "C:\Documents and Settings\Mes documents\Fichier pdf" & "\" & NomPdf 'adapte le chemin
    'Application.ScreenUpdating = False
 
    ThisWorkbook.Sheets("feuil1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 End Sub

Adapte le chemin d'accès et la feuille !

et raconte moi !

Cordialement,

[yellowdog]

Merci pour ton code mais l'application tourne sous EXCEL 97 et la fonction ExportAsFixedFormat n'existe pas.

As tu une autre astuce pour contourner le problème ?

[jijie]

oui, as tu essayer avec PDFcreator? il est gratuit à installer ! Il se trouve ds tes imprimantes bien-sure après installation!

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
Option Explicit
 
Sub testPDF()
Sheets("Feuil1").Select
  Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True
 
End Sub
Sub testPDF2()
 Dim pdfjob
Dim NomExcel, NomPdf, DefaultPrinter
 Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = ThisWorkbook.Name
NomPdf = "Facture" & ".pdf"
With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Impossible d'initialiser PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = ThisWorkbook.Path ' chemin enregistrement du classeur actuel
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
 
'ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator" 'imprime le classeur entier
ThisWorkbook.Sheets("Feuil1").PrintOut Copies:=1, ActivePrinter:="PDFCreator" 'imprime l'onglet pour mise en page définir la partie à imprimer
'Selection.PrintOut Copies:=1, ActivePrinter:="PDFCreator" 'imprime la selection
 
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultPrinter = DefaultPrinter
.cClearCache
.cClose
End With
 
End Sub

Pour le test 2 le fichier s'enregistre dans le chemin de ton classeur! Mais tu pourras modifier cette action selon ton choix!

[yellowdog]

Je vais tester, et te fais un retour demain.