Macro - Enregistrer un fichier PDF avec son nom

Bonjour à tous!

Je suis nouveau sur Excel,

et je souhaite créer une Macro qui permette d'enregistrer un fichier au format PDF dans le même fichier

que le document sur lequel je travaille, en ajoutant un texte ("premier proto" par exemple) au nom existant et en incluant le classeur entier de mon fichier,

Pourriez vous m'éclairer sur la démarche à suivre ?

Merci d'avance pour votre précieuse aide,

Jean.

Exemple joint

Il faut lancer la macro pdf

Attention, il y aura un fichier pdf par onglet.

Bonjour Steelson!

Merci beaucoup!

Je suis obligé d'intégrer l'ensemble du classeur dans le fichier pdf,

Est-ce possible?

Bien à vous,

Jean.

Essaie ceci :

Sub pdfUnique()

    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

    Chemin = ObtenirCheminBureau() ' pour le bureau
    Chemin = ThisWorkbook.Path ' pour le dossier dans lequel le fichier est stocké
    Dossier = "PROTO"
    DateExtraction = Format(Now(), "yyyy-mm-dd")

    MkDir Chemin & "\" & Dossier
    MkDir Chemin & "\" & Dossier & "\" & DateExtraction

    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".")) & "pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
End Sub

Lance pdfUnique

Bonjour Steelson,

merci beaucoup pour votre aide,

Je reçois le message d'erreur suivant quand je lance la macro, à quoi pensez vous que cela soit lié ?

Merci d'avance,

Jean.

capture

Faisons au plus simple alors !

Sub pdfUnique()

    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".")) & "pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True

End Sub

Qu'est-ce que cela donne ?

Rechercher des sujets similaires à "macro enregistrer fichier pdf nom"