Adapter code export avec un chemin de date qui change

Fermé

Flo100789 Messages postés 11 Date d'inscription vendredi 9 novembre 2018 Statut Membre Dernière intervention 14 novembre 2018 - Modifié le 9 nov. 2018 à 11:02
Flo100789 Messages postés 11 Date d'inscription vendredi 9 novembre 2018 Statut Membre Dernière intervention 14 novembre 2018 - 9 nov. 2018 à 19:50

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:

Adapter code export avec un chemin de date qui change
Piratage facebook changer mot de passe - Guide
Code asci - Guide
Code puk bloqué - Guide
Code de déverrouillage oublié - Guide
Changer de dns - Guide

2 réponses

Réponse 1 / 2

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
9 nov. 2018 à 13:33

bonjour, peut-être Date-1 au lieu de Date?

Fichier = "Dossier_Recap" & Format(Date - 1, " dd-mm-yy") & ".pdf"

Réponse 2 / 2

Flo100789 Messages postés 11 Date d'inscription vendredi 9 novembre 2018 Statut Membre Dernière intervention 14 novembre 2018
Modifié le 9 nov. 2018 à 14:41

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.

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
Modifié le 9 nov. 2018 à 16:47

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") & "\"

Flo100789 Messages postés 11 Date d'inscription vendredi 9 novembre 2018 Statut Membre Dernière intervention 14 novembre 2018
9 nov. 2018 à 19:03

c'est le mois :)

Merci de ton retour.

Flo100789 Messages postés 11 Date d'inscription vendredi 9 novembre 2018 Statut Membre Dernière intervention 14 novembre 2018
9 nov. 2018 à 19:50

J'ai utilisé le code :"T:\SHEMA\dossier\Fort\" & CStr(Year(Date)) & "\" & CStr(Month(Date)). " & Format(Date, "mmmm") & "\"

Discussions similaires

Chemin Logo du site de la Cité de l'espace

Prélèvement JM Jacquie et Michel date.

Problème Whatsapp - "La date est incorrecte"

Code de renvoi d'appel : Ooredo, Mobilis...

Discussions similaires

Newsletters