XL 2016 enregistrer PDF avec choix de dossier

Gilles Cyr · 19 Août 2022

Bonjour Forum,

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

VB:

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 · 19 Août 2022

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 :

VB:

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 · 19 Août 2022

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

XL 2016 enregistrer PDF avec choix de dossier

Gilles Cyr

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Gilles Cyr

XLDnaute Nouveau

Discussions similaires