Discussion :

[YOUSSEFALAOUIA]

Bonjour,
toujours avec ma facture,je cherche à archiver mon Etat facture en PDF pour cela j'ai réussi à écrire le code VBA suivant qui marche très bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Report_Activate()
DoCmd.OutputTo acOutputReport, "E_Imprimer_une_facture", acFormatPDF, "C:\Archives_Factures\ facture_" & ID_Date_facture.Value & ".pdf"
End Sub

dont :

• C:\Archives_Factures est le répertoire d'archive

• ID_Date_facture est le numéro de la facture

ce qui donne comme nom de la facture archivé : facture_1
je cherche à ajouter à cette concaténation le le symbole :" /" + les deux derniers chiffres de l’année en cours pour obtenir le formule suivante:facture_1/19
Merci d'avance pour le soutien.

[madefemere]

Bonjour,

en récupérant l'année de la date du jour et le concaténant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Report_Activate()
DoCmd.OutputTo acOutputReport, "E_Imprimer_une_facture", acFormatPDF, "C:\Archives_Factures\ facture_" & ID_Date_facture.Value &"/"& year(date()) & ".pdf"
End Sub

Je te conseillerai d'utiliser le caractère "_" au lieu de "/" dans le nom de fichier.

Cordialement.

[YOUSSEFALAOUIA]

Bonjour,
Dessolé Mr madefemere
Mais le code ne répond pas
facture1.rar
Cordialement.

[madefemere]

Bonjour,

"ne répond pas"

qu'est ce qui se passe ?

Cordialement

[YOUSSEFALAOUIA]

Bonjour,
je m'excuse pour le terme.j'ai voulu dire que quand j’exécute le:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Report_Activate()
DoCmd.OutputTo acOutputReport, "E_Imprimer_une_facture", acFormatPDF, "C:\Archives_Factures\ facture_" & ID_Date_facture.Value &"/"& year(date()) & ".pdf"
End Sub

cela renvoie une erreur.
cordialement.

[YOUSSEFALAOUIA]

Rebonjour,
comme vous le m'avez conseillé Mr madefemere:
j'ai remplacé le "/" par "_" et le code VBA s’exécute bien
Mais espérant avoir seulement les deux dernières chiffres de l’année en cours (19 et pas 2019)
Merci.
cordialement.

[tee_grandbois]

bonjour,
remplace year(date()) par format(date(),"yy")

[YOUSSEFALAOUIA]

Bonjour,
c'est parfait.
Merci.
Cordialement