Macro renvoi date dans titre fichier pdf


#1

Bonjour,
Je souhaite à partir d’une macro enregistrer une feuille excel en format pdf, dans le titre du fichier pdf généré la date du dernier jour du mois précédent au format jjmmaa.
Qui peut m’aider, SVP?
Cordialement

Sub test()

’ Impression pdf

    Application.ScreenUpdating = False

    Sheets("TEST").Select

    ChDir \\D\Nom du fichier excel

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

    "\\D\afedim\- Nom du fichier pdf " & ????? (formule vba?) Quality:=xlQualityStandard _

    , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish _

    :=True

End Sub


#2

Bonjour,

Tu places ce code après le “Application.ScreenUpdating = False

LaDate = CDate(Date)
JourFinDeMois = Day(DateAdd("d", DateAdd("m", 1, DateSerial(Year(LaDate), _
Month(LaDate), -1)), 0))
DateFinDeMois = CDate(JourFinDeMois & "-" & Month(LaDate) & "-" & _
Year(LaDate))
DateFinDeMois = Format(DateFinDeMois, "dd_mm_yyyy")

et tu modifies la ligne

"\\D\afedim\- Nom du fichier pdf " & DateFinDeMois, Quality:=xlQualityStandard _

#3

Mci Mimi:slightly_smiling_face:
Voici comment j’ai actualisé ma macro qui bug quand je la lance
Sub test()

’ Impression pdf

    Application.ScreenUpdating = False

    LaDate = CDate(Date)

    JourFinDeMois = Day(DateAdd("d", DateAdd("m", 1, DateSerial(Year(LaDate), Month(LaDate), 1)), -1))

    DateFinDeMois = CDate(JourFinDeMois & "/" & Month(LaDate) - 1 & "/" & Year(LaDate))

    Sheets("TEST").Select

    ChDir "\\D\Nom du fichier excel

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

    "\\D\afedim\- Nom du fichier pdf " & DateFinDeMois & " fichier.pdf", Quality:=xlQualityStandard _

    , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish _

    :=True

      

    '

    Range("A5").Select

    Sheets("MENU").Select

    Application.ScreenUpdating = True

End Sub


#4

Ne serait-ce pas plus simple de rapatrier la date fin de mois d’une cellule de mon fichier excel, dans ma macro?


#5

Re,

Ce n’est pas avec des bouts de code que le problème peut se régler en deux posts

place un classeur et après je regarde


#6

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.