Discussion :

[nduverger]

Bonjour!
J'ai parcouru des centaines de discussions ici et ailleurs, mais je n'arrive pas à mettre au point une macro SIMPLE qui permette d'enregistrer une feuille (et non un classeur), en entier (et non une plage de cellule), sur le bureau, en PDF.
Pouvez-vous m'aider? Est-ce qu'il existe une macro unique, compatible avec Excel 2003 (que j'ai) mais qui fonctionne aussi avec les autres versions d'excel?

[Marc-L]

Bonjour,

c'est possible à partir des versions 2007 et supérieures …

Sinon il faut utiliser un utilitaire, voir dans le sous-forum d'Excel intitulé Contribuez l'excellent travail de kiki29.

[kiki29]

Salut, il te faudra installer PDFCreator 1.7.3 ( gratuit )

Voir ici pour une liste à jour devant permettre de naviguer dans le bazar

Le code devant être adapté à ton contexte se trouvant ici et adapté ci-dessous :

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
83
Option Explicit
 
Private Function GetPrinterWithPort(ByVal sPrinterName As String) As String
Dim Reg As Variant, oReg As Object, Str As Variant
Dim Ar() As Variant, RegValue As Variant
Const HKEY_CURRENT_USER = &H80000001
    Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    With oReg
        .enumvalues HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", Str, Ar
        .getstringvalue HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", Reg, RegValue
        .getstringvalue HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", sPrinterName, RegValue
    End With
    GetPrinterWithPort = sPrinterName & " sur " & Mid$(RegValue, InStr(RegValue, ",") + 1)
End Function
 
Sub TstPdfCreator()
Dim sPrinter As String
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String
Dim Ar() As String, Cpt As Long, i As Long
 
    sNomPDF = "Essai"
    sCheminPDF = ThisWorkbook.Path & "\"
 
    Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")
    JobPDF.cStart "/NoProcessingAtStartup"
    sPrinter = GetPrinterWithPort("PDFCreator")
 
    With JobPDF
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sCheminPDF
        .cOption("AutosaveFilename") = sNomPDF
 
        '   0,9,10 PDF,1 PNG,2 JPEG,3 BMP,4 PCX
        '   5 TIFF,6 PS,7 EPS,8 TXT
        '   11 PSD,12 PCL,13 RAW,14 SVG
        .cOption("AutosaveFormat") = 0
        .cOption("PDFGeneralAutorotate") = 0
        .cClearCache
    End With
 
    ' Pour n'imprimer que certaines feuilles du classeur
    Cpt = 0
    For i = 1 To ThisWorkbook.Sheets.Count
        If Left$(ThisWorkbook.Sheets(i).Name, 6) = "Feuil3" Then
            ReDim Preserve Ar(Cpt)
            Ar(Cpt) = Sheets(i).Name
            Cpt = Cpt + 1
        End If
    Next i
 
    If Cpt = 0 Then
        Set JobPDF = Nothing
        Exit Sub
    End If
 
    Application.ScreenUpdating = False
 
    Sheets(Ar).Select
    Sheets(Ar).PrintOut copies:=1, ActivePrinter:=sPrinter
 
    '   Fichier dans la file d'attente
    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    '   Démarrage Imprimante
    JobPDF.cPrinterStop = False
 
    '   Attendre que la file d'attente soit vide
    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
 
    JobPDF.cClose
    Set JobPDF = Nothing
    Erase Ar
 
    ' Resélectionner une feuille seulement
    Worksheets(1).Select
    Application.ScreenUpdating = True
End Sub

De façon plus concise, par exemple

Code :

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

Sheets(Array("Feuil1", "Feuil2")).PrintOut copies:=1, ActivePrinter:=sPrinter

Ou sinon comme l'indiquait Marc ( que je salue au passage ) Office 2007 SP2 ou + qui intègre le format PDF en natif et l'enregistreur de macros.

[nduverger]

Merci! Est-ce qu'il existe une macro plus simple, sans passer par PDFcreator, qui permette d'exporter en PDF une seule feuille du classeur?

[illight]

Bonjour,


Personnellement, j'utilise ça :

Code :

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

1
2
 
Worksheets("PDF").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin_nomfichierPDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Où PDF est le nom de ma feuille, et Chemin_nomfichierPDF est le chemin + le nom du PDF final

[kiki29]

Salut, Olivier : pour 2007+ oui , mais ici on parle de 2003. et malheureusement il n'y pas de solution sans logiciel externe.
Cela dit si tu installes PDFCreator ( gratuit ) en utilisant l'enregistreur de macros tu auras qqch comme :

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Sub Macro1()
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True
End Sub

[nduverger]

Ca fonctionne à merveille! merci!