Autres Nommer un fichier lors de l'impression PDF

[Paletor]

Bonjour,

je souhaiterai savoir s'il est possible d'avoir une macro qui ferait la chose suivante sous XL 2007

quand je lance une impression en PDF (suite à une macro que j'ai faite grâce à l'enregistreur, je suis une bille en macro), je voudrais que le nom 'automatique' du fichier PDF ne soit pas le nom du fichier mais un nom composé par les valeurs qui se trouvent dans plusieurs cellules, en les "concatenant".

Ex Agent X du 01-06-2019 au 24-06-2019 en sachant que :

"Agent X" est en cellule C3
"du" en cellule en E5
01-06-2019 en cellule C3...

Je vous remercie par avance et surtout dites moi si je ne suis pas clair

Cdt

PP

 

[Sequoyah]

Bonsoir Paletor et le Forum,
une proposition (en supposant la date initiale dans la cellule E5 et la date finale en F5):

Sub EnregPDF()

    Dim Nomfichier As String, Chemin As String
    Dim Agent As String, DateInit As String, DateFin As String

    Agent = Range("C3")
    DateInit = Format(Range("E5"), "dd-mm-yyyy")
    DateFin = Format(Range("F5"), "dd-mm-yyyy")
    Chemin = ActiveWorkbook.Path & "\"           '<<=== Chemin à adapter

    Nomfichier = Agent & " du " & DateInit & " au " & DateFin & ".pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Nomfichier
End Sub

Bien cordialement