XL 2016 enregistrer PDF avec choix de dossier

[Gilles Cyr]

Bonjour Forum,

je ne viens pas a bout de ce petit problème, enregistrer une feuille en pdf et choisir son nomdossier par inputbox.

Sub Export_PDF()

Dim NomDossier As String
Dim CheminDossier As String

On Error GoTo 1

NomDossier = Application.InputBox("Dossier Enregistrement :", "Dossier")
CheminDossier = "C:\Base\Laval\" & NomDossier & "\"
If NomDossier = "" Then Exit Sub

   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        CheminDossier & "_" & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=Fa

1:
End Sub

C'est quoi mon erreur? quelqu'un peu m'aider s.v.p.

 

[Dranreb]

Bonsoir.
Où est le nom de fichier dans votre histoire ?
Pourquoi n’emploieriez vous pas la méthode GetSaveAsFilename de l'objet Application ?
Par exemple :

Sub Export_PDF()
   Dim ChNomFic As Variant
   ChDir "C:\Base\Laval"
   ChNomFic = Application.GetSaveAsFilename("", "Fichier PDF,*.pdf")
   If VarType(ChNomFic) <> vbString Then Exit Sub
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ChNomFic, _
      Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=False
   End Sub

Remarque: Cette méthode permet de choisir un sous dossier avant de renseigner le nom de fichier puis valider par Enregistrer.

 

[Gilles Cyr]

merci, Drandreb
cela est très bien avec ce que je voulais,.
cela est apprécié, bonne soirée.