Adapter code export avec un chemin de date qui change
Flo100789
Messages postés
13
Statut
Membre
-
Flo100789 Messages postés 13 Statut Membre -
Flo100789 Messages postés 13 Statut Membre -
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
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, 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.
