XL 2021 Exporter en PDF avec nom dynamique

[fuioplde]

Bonjour,

Je sollicite votre aide, car j'ai créé un Excel où je peux rentrer des frais postaux et imprimer puis exporter le fichier en PDF. Cependant, je souhaiterais que l'exportation prenne le nom : " Frais postaux + nom de la copro + la date de fin".
mon code :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="E:\TEST\FP_Nom_Copro.pdf", _
OpenAfterPublish:=False
Application.ScreenUpdating = True
End Sub


Merci beaucoup

 

[sylvanu]

Bonjour Fuioplde,
Un essai en PJ avec :

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    NomPDF = "E:\TEST\" & [E9] & "_" & [G12] & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=NomPDF, _
            OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub

NB: Pouyr le code utilisez la balise </> à droite de l'icone GIF, c'est plus lisible.

 

[fuioplde]

ça marche merci beaucoup ! Faut juste que le format de date de contienne pas de "/" sinon ça crash

 

[sylvanu]

Faut juste que le format de date de contienne pas de "/" sinon ça crash

Evidemment, dans ce cas choisissez un autre format.
Ou changer la ligne du nom de fichier en :

NomPDF = "E:\TEST\" & [E9] & "_" & Format([G12], "dd-mm-yyyy") & ".pdf"

 

[kiki29]

Salut, à titre d'information : à télécharger puis consulter : Liste Contributions PDF