XL 2016 enregistrer la facture en pdf selon le mois

dindin à dit:

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

Cliquez pour agrandir...

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

Jacky67 à dit:

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

VB:

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

Cliquez pour agrandir...