XL 2016 enregistrer la facture en pdf selon le mois

dindin

XLDnaute Occasionnel
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
1642428006320.png


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
 

Pièces jointes

  • Facture selon le mois.xlsm
    36.5 KB · Affichages: 14

Jacky67

XLDnaute Barbatruc
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
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
 

Pièces jointes

  • Facture selon le mois.xlsm
    33 KB · Affichages: 12

dindin

XLDnaute Occasionnel
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
Bonjour, Jacky 67
Merci pour ce code très bref, je l'ai bien adapté à mes besoin.
Merci encore une fois
 

Discussions similaires

Statistiques des forums

Discussions
312 854
Messages
2 092 833
Membres
105 542
dernier inscrit
ValendirEDB