Adapter code export avec un chemin de date qui change

Flo100789 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
Flo100789 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

J'aimerais adapter mon code ci-dessous avec un nom de chemin qui s'actualise selon les dates qui changeront dans le temps :

Sub Export_Dossier()
Dim Fichier As String
'adaptez le nom de la feuille
With Worksheets("Dossier_ Recap")
Fichier = "Dossier_Recap" & Format(Date, " dd-mm-yy") & ".pdf"=> si possible date J-1 au même format
Chemin = rep & "T:\SHEMA\dossier\Fort\2018\11. Novembre\Dossier BM\" & Fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub
A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, peut-être Date-1 au lieu de Date? 
Fichier = "Dossier_Recap" & Format(Date - 1, " dd-mm-yy") & ".pdf"
0
Réponse 2 / 2
Flo100789 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Oui c'est ca pour la date et pour le chemin savez vous le code pour l'actualiser automatiquement?

Chemin = rep & "T:\SHEMA\dossier\Fort\2018\11. Novembre\

Merci de votre retour.
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
le 11, c'st le numéro du mois ou c'est un jour?

peut-être: 
"T:\SHEMA\dossier\Fort\" & CStr(Year(Date)) & "\11. " & Format(Date, "mmmm") & "\"
0
Flo100789 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
c'est le mois :)

Merci de ton retour.
0
Flo100789 Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai utilisé le code :"T:\SHEMA\dossier\Fort\" & CStr(Year(Date)) & "\" & CStr(Month(Date)). " & Format(Date, "mmmm") & "\"
0