Export au format pdf avec explorateur de dossier

Version imprimable

Bonjour tout le monde,

je souhaiterais sauvegarder une feuille dans le dossier voulu et au format pdf.

J'ai un code mais qu'y ne veut rien faire.

Le voici:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub export_pdf()
Dim Repertoire As FileDialog
 
Dim LaDate As String
 
LaDate = Format(Date, "yyyymmdd")
 
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
 
MsgBox Repertoire.SelectedItems(1) & "\" & LaDate & "_" & ".pdf" 'a remplacé par l'enregistrement
 
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Repertoire.SelectedItems(1) & "\" & LaDate & "_" & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
End Sub

Bonjour journée.

Vincent

11/10/2014, 08h37
Philippe Tulliez

Bonjour,
As-tu jeté un coup d'oeil dans cette contribution Excel / Word / PDF avec Adobe Acrobat Pro et PDFCreator ?
Je serais très étonné que tu n'y trouves pas une solution.
11/10/2014, 08h43
vins86

Bonjour,

Merci pour le lien, mais je n'ai pas PDFCreator.

Donc je voudrais m'en passer.

Vincent
11/10/2014, 08h48
Invité

Bonjour

Si tu n'as pas sur la version 2007 d'Excel, l'utilisation d'un logiciel tiers (PDF creator ou autre) est indispensable.

Philippe
11/10/2014, 08h55
vins86

Je suis sur la version 2017 et 2013. Ca marche si je n'utilise pas l'explorateur de dossier.

J'ai bien mon fichier pdf. Mais je veux avoir la possibilité de l'enregistrer dans le dossier que je veux.

Cordialement,

vincent

Salut, qqch dans le genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Sub export_pdf()
Dim Repertoire As FileDialog
Dim LaDate As String
    LaDate = Format(Date, "yyyymmdd")
 
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    If Repertoire.Show = -1 Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                Repertoire.SelectedItems(1) & "\" & LaDate & ".pdf", Quality:= _
                xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                From:=1, To:=1, OpenAfterPublish:=False
    End If
    Set Repertoire = Nothing
End Sub

11/10/2014, 10h39
vins86

Merci kiki. Ceci fonctionne correctement. Je vais analyser tout çà.

Bonne journée.

Vincent