Enregistrer tableau excel en pdf avec AcrobatMaker via VBA

Version imprimable

02/02/2016, 09h23
oliv2507

Enregistrer tableau excel en pdf avec AcrobatMaker via VBA

Bonjour,
HELP après moultes recherches, aidez moi svp !

La première étape serait d'enregistrer une feuille excel en pdf, avec Acrobat Maker (Adobe Acrobat DC Standard 2015, car c'est le seul qui conserve les liens hypertextes), à l'aide d'une macro.

En fait cette feuille excel est une trame qui se remplit automatiquement (avec des formules index equiv) à l'aide d'une base de données dans une autre feuille.

La seconde étape serait de générer automatiquement des fichiers pdf avec les lignes que je filtre dans ma base de données (en couleur ou autres astuces).
Les fichiers PDF générés devront avoir le nom d'une cellule définie.

Pouvez vous m'aider svp ?
si vous avez besoin d'informations complémentaires, n'hésitez pas !
02/02/2016, 12h24
kiki29

Salut, regarde Utilisation de PDFMaker depuis Excel
, il y a également le quasi code équivalent en téléchargement ici. L'adaptation à ton contexte pour l'enregistrement ne devrait poser aucun pb.
02/02/2016, 14h36
oliv2507

Salut kiki29

merci pour ta réactivité et ton aide.
Tout d'abord je n'arrive pas à ouvrir le fichier en téléchargement.
et Malheureusement je ne connais rien a la programmation VBA !

Peux tu m'aider? puis-je t'envoyer mon fichier?

2 pièce(s) jointe(s)

Salut, fichier zippé avec 7Zip.

Code modifié pour ton appli, à adapter à ton contexte.
Affecter un bouton à Essai_PDFMaker()
Feuil1 et Feuil2 sont les CodeName des onglets

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
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
84
85
86
Option Explicit
 
Sub Essai_PDFMaker()
Dim sNomFichier As String
    sNomFichier = Feuil2.Range("A1")
    If NomFichierValide(sNomFichier) Then
        sNomFichier = Replace(sNomFichier, ",", ".")
        Feuil2.Range("A1") = sNomFichier
        sNomFichier = ThisWorkbook.Path & "\" & sNomFichier
        SavePDF sNomFichier
    Else
        With Feuil2
            .Activate
            .Range("A1").Select
        End With
        MsgBox "Nom de fichier invalide", vbCritical + vbOKOnly
    End If
End Sub
 
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const CaracInterdits As String = """*/:<>?[\]|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    For i = 1 To Len(CaracInterdits)
        If InStr(sChaine, Mid$(CaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function
 
Private Sub Nettoyage()
Dim shp As Shape, sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        For Each shp In sh.Shapes
            If InStr(shp.Name, "ZoneTexte") Or InStr(shp.Name, "Connecteur") > 0 Then
                shp.Delete
            End If
        Next shp
    Next sh
End Sub
 
Private Sub SavePDF(sNomFichier As String)
Dim i As Long
Dim appPDFMaker As AdobePDFMakerForOffice.PDFMaker
Dim appSettings As AdobePDFMakerForOffice.ISettings
 
    Application.ScreenUpdating = False
 
    For i = 1 To Application.COMAddIns.Count
        If InStr(UCase$(Application.COMAddIns(i).Description), "PDFMAKER") > 0 Then
            Set appPDFMaker = Application.COMAddIns(i).Object
            Exit For
        End If
    Next i
 
    appPDFMaker.GetCurrentConversionSettings appSettings
 
    With appSettings
        .AddBookmarks = True
        .AddLinks = True
        .AddTags = True
        .AdvancedTagging = True
        .ConvertAllPages = True
        .CreateFootnoteLinks = True
        .CreateXrefLinks = True
        .FitToOnePage = False
        .OutputPDFFileName = sNomFichier
        .PromptForSheetSelection = False
        .ShouldShowProgressDialog = False
        .ViewPDFFile = False
    End With
 
    appPDFMaker.CreatePDFEx appSettings, 0
    Nettoyage
 
    Application.ScreenUpdating = True
 
    Set appSettings = Nothing
    Set appPDFMaker = Nothing
 
End Sub

03/02/2016, 09h29
oliv2507

1 pièce(s) jointe(s)

Salut Kiki29,

Un grand merci pour ton code ! Maintenant j'arrive à créer un pdf !
Mais lorsque le fichier est créé, il manque l'extension du fichier...

Et lorsque je clique sur le bouton un message apparait :

Pièce jointe 199792

Puis-je m'acquitter de répondre à cette question ?

De plus, serait-il possible que je puisse indiquer dans le code VBA l'emplacement du dossier pour le nouveau PDF créé ?
03/02/2016, 09h37
kiki29

1 pièce(s) jointe(s)
Salut, allons quand même : si l'extension manque, il suffit de la rajouter.
Quant au message il est suffisamment explicite non, il suffit de le lire.
Pour le chemin : c'est quoi ça, à ton avis ?
Code:

1 2 3 sNomFichier = Feuil2.Range("A1") ..... sNomFichier = ThisWorkbook.Path & "\" & sNomFichier
Tu remplaces par :
dans Feuil2.Range("A1") mettre Essai_pdfmaker.pdf
....

Code:

sNomFichier ="C:\Faq\Faq VBA\Exemples\PDF\PdfDistiller\PDFMaker"& "\" & sNomFichier
03/02/2016, 11h25
oliv2507

1 pièce(s) jointe(s)

Comme je te l'ai dis, je n'y connais rien à la programmation VBA, désolé...

Est-il possible de rajouter tout de suite l'extension lors de la création du pdf ?
Parce que j'ai 500 fichiers pdf à générer..... :?

et pour les zones d'impressions, hélas j'ai besoin de les utiliser...
Comment puis-je faire ?

et maintenant la seconde étape.... et après j'arrête de t'embêter :oops:

Pièce jointe 199808

J'aimerais générer automatiquement des fichiers pdf uniquement avec les lignes en orange...
Les fichiers PDF générés devront avoir le nom d'une cellule définie.
03/02/2016, 11h52
kiki29

Tu te heurteras à divers pbs liés à PDFMaker: pas ou plus de suivi, ni de documentation
la liste de Propriétés ISettings : certaines options sont devenues invalides, ont disparues et d'autres sont peut-être apparues, le suivi par Adobe de PDFMker avec Visio ( entre autres ) n'est plus assuré. Bref bon courage.

A lire
03/02/2016, 13h52
oliv2507

Kiki29 help please...:(

Je voudrais juste un coup de pouce pour l'extension....
Est-il possible de rajouter tout de suite l'extension lors de la création du pdf ?
Parce que j'ai 500 fichiers pdf à générer.....
03/02/2016, 17h11
kiki29

Il te suffit de lire un post précédent, la réponse y est

Citation:

allons quand même : si l'extension manque, il suffit de la rajouter.
04/02/2016, 07h56
oliv2507

Je rajoute où l'extension ???
Et j'ai encore un petit problème, les liens hypertexte disparaissent lors de l'enregistrement en PDF...
15/02/2016, 20h09
kiki29

1 pièce(s) jointe(s)
Salut, avec un retard indépendant de ma volonté.
Code:

1 2 3 sNomFichier = Feuil2.Range("A1") ..... sNomFichier = ThisWorkbook.Path & "\" & sNomFichier
Dans la cellule A1 de la Feuil2 ( CodeName) taper par exemple essai.pdf