Discussion :

[vins86]

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 :

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
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

[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.

[vins86]

Bonjour,

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

Donc je voudrais m'en passer.

Vincent

[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

[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

[kiki29]

Salut, qqch dans le genre :

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
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

[vins86]

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

Bonne journée.

Vincent