XL 2016 enregistrer la facture en pdf selon le mois

[dindin]

Bonjour le Forum,
j'ai une facture qui est relié à une base de donnée. mon objectif est d'enregistrer cette facture en pdf selon le mois, en suivant ce chemin:

ThisWorkbook.Path & "\" & Factures 2022 & "\" & Mois (selon la date) & "\" & titre de la facture(cellule D42)

-------> Dossier "Factures 2022"
-------> sous dossier : les 12 mois

la facture sera enregistrée dans le mois correspondant à la date de cette dernière

j'ai détaillé ma demande dans le fichier
Merci pour votre aide

 

[Jacky67]

Bonjour le Forum,
j'ai une facture qui est relié à une base de donnée. mon objectif est d'enregistrer cette facture en pdf selon le mois, en suivant ce chemin:

ThisWorkbook.Path & "\" & Factures 2022 & "\" & Mois (selon la date) & "\" & titre de la facture(cellule D42)

-------> Dossier "Factures 2022"
-------> sous dossier : les 12 mois
Regarde la pièce jointe 1127754

la facture sera enregistrée dans le mois correspondant à la date de cette dernière

j'ai détaillé ma demande dans le fichier
Merci pour votre aide

Bonjour,
Ceci attribué au bouton "PDF Selon le mois" devrait faire

Sub ExportPDF()
    On Error Resume Next
    MkDir ActiveWorkbook.Path & "\Factures " & Year(Date)
    MkDir ActiveWorkbook.Path & "\Factures " & Year(Date) & "\" & Format(Date, "m-mmmm")
    fichier = ActiveWorkbook.Path & "\Factures " & Year(Date) & "\" & Format(Date, "m-mmmm") & "\" & [d42]
    On Error GoTo 0
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier
End Sub

 

[dindin]

Bonjour,
Ceci attribué au bouton "PDF Selon le mois" devrait faire

Sub ExportPDF()
    On Error Resume Next
    MkDir ActiveWorkbook.Path & "\Factures " & Year(Date)
    MkDir ActiveWorkbook.Path & "\Factures " & Year(Date) & "\" & Format(Date, "m-mmmm")
    fichier = ActiveWorkbook.Path & "\Factures " & Year(Date) & "\" & Format(Date, "m-mmmm") & "\" & [d42]
    On Error GoTo 0
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier
End Sub

Bonjour, Jacky 67
Merci pour ce code très bref, je l'ai bien adapté à mes besoin.
Merci encore une fois