Microsoft 365 macro - impression pdf

[dd_76]

Bonjour à tous,

j'ai crée une macro pour générer une feuille en pdf
mais est ce possible de lui imposer un emplacement d'enregistrement? et de lui attribuer un nom de façon automatique en fonction de certaine cellule de cette feuille?

merci a vous

 

[Saboh12617]

Bonjour,
C'est bien sur possible, il suffit de lire les plages (éventuellement vérifier que les noms proposés sont corrects [certains caractères sont invalides]), puis les donner comme argument au print/saveas. Je vous conseille de partager votre macro si vous voulez une aide plus approfondie, et également votre classeur si possible. N'oubliez pas d'indiquer les plages à utiliser, les feuilles correspondantes, et où les utiliser (chemin de sauvegarde, nom fichier etc).

 

[sylvanu]

Bonjour DD, Saboh,
Un essai en PJ avec :

Sub SauvegarderFeuilleEnPDF()
    Dim cheminDossier$, nomFichier$, cheminComplet$
    cheminDossier = ThisWorkbook.Path & "\"     ' Chemin fichier courant, sinon changer chemin désiré
    nomFichier = Range("A1").Value & ".pdf"     ' Nom du fichier en cellule A1, à modifier
    cheminComplet = cheminDossier & nomFichier  ' Chemin d'enregistrement
    ' Exportation de la feuille active en format pdf
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=cheminComplet, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    MsgBox "Le PDF a été enregistré ici : " & cheminComplet, vbInformation, "Succès"
End Sub

La PJ doit être enregistrée avant d'activer la macro. ( à cause du ThisWorkbook.Path utilisé )