Enregistrer en PDF

Bonjour,

Jai un fichier excel et je voudrais qu'il y ait un bouton pour pouvoir enregistrer celui-ci en PDF dans le même dossier.

J'ai déjà le code suivant mais il enregistre dans le dossier précédent et pas celui dans lequel est la macro. :

Sub Enreg_Pdf()
Dim Path, name As String
Path = ThisWorkbook.Path ' à adapter
name = ThisWorkbook.name

ChDir Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Path & ".pdf" _
 , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
 :=False, OpenAfterPublish:=False
End Sub

Je n'arrive pas à identifier ce qu'il faudrait modifier pour pouvoir enregistrer dans le même dossier.

Le fichier en PJ

Merci d'avance,

Nicolas

Salut,

Essaye peut-être ce code en indiquant le nom du dossier.

Sub PDF()

'
    ChDir _
        "Nom du dossier"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "Nom du dossier" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

Bonjour

A voir aussi

Sub Choix()
NomDossier = "STAT"
   Chemin = ThisWorkbook.Path & "\"
   NomFiche = Chemin & NomDossier & Format(Now, "-dd-mmmm-yyyy") & ".pdf"
   Call EditionPDF(NomFiche)
 MsgBox "Edition Terminer"
End Sub

Sub EditionPDF(NomFiche)
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=NomFiche, _
      Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
End Sub

A+

Maurice

Merci à vous deux pour vos retours, mais il semble qu'il faille avoir un nom de dossier fixe, ce qui n'est pas mon cas le nom et le chemin d'accès vont changer en permanence...

Oui tout à fait dans mon exemple le dossier est fixe!

Mais je pensais que c'était le cas pour toi aussi.

Non en fait c'est un template qui est réutiliser pour chaque dossier de production.

Je ne suis pas encore expert en vba, mais cela donne quoi avec la solution de archer !