Imprimer classeur excel 2010 en pdf

Version imprimable

Bonjour,

J'ai essayé de construire une macro sur excel 2010 pour imprimer l'ensemble des onglets de excel en pdf.
J'ai trouvé la macro suivante. Cependant développeur ne la reconnait pas en tant que macro.
Pourriez vous svp m'indiquer ce qu'il manque?
Par avance merci

Code:

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
Dim pdfjob
Dim NomExcel, NomPdf, DefaultPrinter
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
Dim Chemin As String, Fich As String, rep
Chemin = "c:\temp"
Fich = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveWorkbook.Name) & ".pdf"
rep = Dir(Chemin & "\" & Fich)
 
If rep = "" Then
    MsgBox "le fichier n'existe pas création du fichier PDFCreator"
Impression:
    With pdfjob
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Impossible d'initialiser PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
            'GoTo Error
            Exit Sub
        End If
            .cOption("UseAutosave") = 1
            .cOption("UseAutisaveDirectory") = 1
            .cOption("AutosaveDirectory") = Chemin ' chemin enregistrement du classeur actuel
            .cOption("AutosaveFilename") = Fich
            .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
 
Else
    réponse = MsgBox("le fichier existe voulez-vous le remplacer ?", vbYesNo)
    If réponse = vbYes Then
        MsgBox "Remplacement du fichier existant"
        GoTo Impression
    Else
        MsgBox "Sortie de la procédure"
    End If
End If

Tu es en XL2010

Essaies cette petite procédure (à adapter le nom complet du fichier)
Code:

1 2 3 4 5 6 Sub PDFSave() Dim Fichier As String Fichier = "C:\Users\user\Desktop\Classeur2.pdf" 'à adapter ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier End Sub

12/06/2013, 18h49
Anna_2013

Sauvegarde PDF et impression

J'ai coché dans Visual basic la case PDFCREATOR et utilisé le code macro que vous m'avez communiqué et cela fonctionne.

Cependant je souhaiterais avoir en preview le pdf et en même temps que l'impression soit lancée.

Merci par avance

Remarque que sous XL 2010, tu n'as pas besoin de pdfcreator

Le code précédent peut être amélioré pour donner la possibilité à l'utilisateur le choix d'écraser le fichier pdf existant sous le même nom avant d'enregistrer
Code:

1 2 3 4 5 6 7 8 9 Sub PDFSave() Dim Fichier As String Dim Cancel As Boolean Fichier = ThisWorkbook.FullName Fichier = Left(Fichier, InStrRev(Fichier, ".")) & "pdf" If Dir(Fichier) <> "" Then Cancel = MsgBox("Le fichier existe déjà! Voulez vous le remplacer?", vbOKCancel) = vbCancel If Not Cancel Then ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier, OpenAfterPublish:=True End Sub
Sélectionne ExportAsFixedFormat et appelle l'aide (F1) pour étudier tous les paramètres de la méthode.

13/06/2013, 14h36
Anna_2013

Merci beaucoup.
Serait il possible après avoir enregistrer en pdf avec
1. la date et heure
2. d'avoir la preview en pdf
3. et de lancer ensuite l'impression

Merci pour votre aide

Bonjour
J'ai essayé de modifier la macro que vous m'avez transmise pour afficher la date et l'heure lors de l'enregistrement

J'ai 2 pblms :

1. Le fichier se sauvegarde avec .xslm.pdf Or je souhaiterais ne plus faire apparaitre le .xlsm
2.la date et l'heure ne s'affiche pas

Merci par avance pour votre aide
13/06/2013, 14h56
mercatog

Remplace la ligne correspondante par celle-ci

Code:

Fichier = Left(Fichier, InStrRev(Fichier, ".") - 1) & "_" & Format(Now, "yyyymmdd-hhnn") & ".pdf"