Sauvegarder Excel en PDF

Question

Bonjour,

J’ai crée cette macro pour enregistrer une Table Excel en pdf

Sub MacroPDF()

    Application.Goto Reference:="ChampTest"

    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "C:\Users\a\Documents\Book1.pdf", Quality:=xlQualityStandard, _

        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

        True

End Sub

Comment modifier la macro pour :

Au lieu de sauvegarder en

C:\Users\a\Documents\

Donner à l’utilisateur la possibilité de choisir l’endroit (au sauvegarder par defaut dans le repertoire où est le fichier)

Et au lieu de Book1.pdf donné au fichier le nom d’un champ de la table (par exemple ChampNom et enregistrer le fichier avec le nom qui est dans le “ChampNom”)

Merci d’avance

A Costa

Answer 1

Je ne suis pas sûr. Si on ne le précise pas, soit il sauvegarde dans le dossier en cours, soit dans le dossier Documents. Je ne me appelle plus.

Daniel

Answer 2

Bonjour,

Essaie (non testé) :

Sub MacroPDF()
Dim Chemin As String, Doss As Object
Application.Goto Reference:="ChampTest"
Set Doss = Application.FileDialog(msoFileDialogFolderPicker)
With Doss
.Title = "Choisissez le dossier"
.AllowMultiSelect = False
If .Show <> -1 Then Exit Sub 'Check if user clicked cancel button
Chemin = .SelectedItems(1) & ""
End With
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & [ChampNom] & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Cordialement.

Daniel

Answer 3

Merci beaucoup,

A Costa

Answer 4

Merci Daniel

C'est parfait.

Si on sauvegarde automatiquement dans le repertoire où est placé le fichier, quel sera le code VBA?

Merci encore une fois

A Costa