Export PDF - boite de dialogue vers dossier
b
Bonjour,
Ci dessous, fichier Excel avec macro VBA qui export la feuille active au format PDF dans le dossier courant (dans le dossier où se situe le fichier Excel)
Je souhaite compléter la macro vba pour exporter la feuille active en PDF, en sélectionnant le dossier d'envoi.
Si possible, que l'ouverture de la boite de dialogue soit par défaut dans le dossier du fichier Excel...
Merci par avance de votre aide.
Bonjour,
Pas trop clair...
Essaie qu.qu.chose comme ça :
Sub Enreg_Pdf()
Dim Filename
Filename = Application.GetSaveAsFilename("test", "pdf Files (*.pdf), *.pdf", , "Sélectionnez un dossier")
If Filename <> False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Filename, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End If
End SubA+