Autres Nommer un fichier lors de l'impression PDF

Paletor

XLDnaute Nouveau
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

XLDnaute Nouveau
Bonsoir Paletor et le Forum,
une proposition (en supposant la date initiale dans la cellule E5 et la date finale en F5):
VB:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas