Exporter vers PDF et inviter l'utilisateur pour le chemin du dossier et le nom du fichier à enregistrer

Question

Je n'arrive pas à déterminer comment demander à l'utilisateur un chemin de dossier et le nom de la sauvegarde. Voici le code que j'ai eu à travailler.

Sub PrintToPDF 

ThisWorkbook.Sheets("Sheet 1","Sheet 3").Select 

ActiveSheet.ExportAsFixedFormat _ 
Type:=xlTypePdf, _ 
Filename:="test.pdf", 
Quality:=xlQualityStandard, _ 
IncludeDocumentProperties:=True, _ 
IgnorePrintAreas:=False, _ 
OpenAfterPublish:=True 

Sheets("Sheet 1").Select 

End Sub 

Merci pour l'aide!

Answer 1

Le code ci-dessous invite l'utilisateur à sélectionner un emplacement et un nom de fichier pour enregistrer le fichier PDF en tant que.

Dim file_name As Variant 
file_name = Application.GetSaveAsFilename(FileFilter:="Adobe PDF File_ (*.pdf), *.pdf") 

If file_name <> False Then 
    ActiveWorkbook.SaveAs Filename:=file_name 
    MsgBox "File Saved!" 
End If