XL 2021 Exporter en PDF avec nom dynamique

fuioplde · 18 Juillet 2023

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 · 18 Juillet 2023

Bonjour Fuioplde,
Un essai en PJ avec :

VB:

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 · 18 Juillet 2023

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

sylvanu · 18 Juillet 2023

fuioplde à dit:
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 :

VB:

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

kiki29 · 18 Juillet 2023

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

XL 2021 Exporter en PDF avec nom dynamique

fuioplde

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

fuioplde

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

Discussions similaires