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:
Bonjour journée.
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
Vincent
Partager