Adapter code export avec un chemin de date qui change
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
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
2 réponses
-
Contributeurbonjour, peut-être Date-1 au lieu de Date?
Fichier = "Dossier_Recap" & Format(Date - 1, " dd-mm-yy") & ".pdf"
-
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.
