Discussion :

[Benjycool]

Bonjour,

Je voudrais savoir quelle est la syntaxe pour convertir un fichier excel en pdf.

Je ne veux pas convertir toute la feuille mais juste un tableau qui commence en A1 et fini en E20.

Comment faire ???

Merci de bien vouloir m'aider.

benjycool

[Godzestla]

Salut,
fais une recherche sur le forum. (PDF)
Il y des posts récents la-dessus.

[Benjycool]

Ok je viens de regarder un peu mais jene comprend pas trop les codes qui sont postés.
Du genre celui la qui à l'air de fonctionner mais je ne comprend pas du tout :

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
 
Sub Conv_PDF()
 
Dim ImpPDF As Object
Dim NomPDF As String
Dim RepertoirePDF As String
Dim ClientPDF As String
Dim CheminPDF As String
Dim SheetPDF As String
 
CheminPDF = "C:\WO_MOB_PDF\"   'Chemin de sauvegarde
ClientPDF = Sheets("F_Edit").Range("B2").Value  'récupération du nom
NomPDF = ClientPDF & ".pdf"
RepertoirePDF = NomPDF
Sheets(Array("detail")).Select  'sélection de feuille
 
If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
Set ImpPDF = CreateObject("PDFCreator.clsPDFCreator")
With ImpPDF
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Impossibilité d'initialiser PDFCréator !", vbCritical + vbOKOnly, "PDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = CheminPDF
.cOption("AutosaveFilename") = RepertoirePDF
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until ImpPDF.cCountOfPrintjobs = 1
DoEvents
Loop
ImpPDF.cPrinterStop = False
Do Until ImpPDF.cCountOfPrintjobs = 0
DoEvents
Loop
ImpPDF.cClose
Set ImpPDF = Nothing
 
End Sub

Et moi je ne veux pas l'imprimer, simplement le transformer en pdf.

Quelqu'un pourrais me le déchiffrer ce code ????

Benjycool

[zandru]

Ce n'est pas une impression réelle, mais pdfcreator s'installe comme une imprimante virtuelle.
C'est pourquoi le code que tu as, fait comme s'il imprimait.

Il faut bien sur installer pdfcreator avant. (gratuit et simple d'utilisation)

[Benjycool]

Ok et la syntaxe pour créer un pdf c'est quoi ???

[zandru]

Plus concis (mais moins complet) que ce que tu a déjà :

Code :

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

1
2
3
'    enregistrement en pdf
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="PDFCreator sur Ne00:", Collate:=True

je te conseil de le faire à la main et d'enregistrer la macro pour être sur de la syntaxe sur ta machine (en particulier pour le "PDFCreator sur Ne00:")