Macro enregistrer en pdf avec date du jour -1

  • Initiateur de la discussion Initiateur de la discussion Softdy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Softdy

XLDnaute Nouveau
Bonsoir le forum,

J'aimerai enregistrer ma feuille de dossier journalier en format pdf avec comme nom de fichier: dossier et date du jour -1 dans le répertoire c:\documents\dossier

exemple: nous somme le 8 janvier 2015 le nom du fichier d'enregistrement se nommera donc: dossier150107.pdf

en bidouillant un peu, voilà ou j'en suis mais ça ne fonctionne pas.

Merci de votre aide.


Sub Enreg_Pdf()
Dim Nomfichier As String, chemin As String
NomFichier = Format(Now() - 1, "yymmdd")
Chemin = "c:\documents\dossier_"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub
 
Re : Macro enregistrer en pdf avec date du jour -1

Bonjour à tous,

Peux-tu essayer avec :

VB:
Sub Enreg_Pdf()
Dim Nomfichier As String, Chemin As String
Nomfichier = Format(Now() - 1, "yymmdd")
Chemin = "C:\Documents\Dossier_"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Nomfichier & ".pdf"
End Sub

A+ à tous
 
Re : Macro enregistrer en pdf avec date du jour -1

Un très grand merci JCGL, cela fonctionne.

Ps: sans abuser que devrai-je changer si je voulais enregistrer mon fichier en reprenant la date qui se trouve en cellule B2 de ma feuille dossier.


merci
 
Re : Macro enregistrer en pdf avec date du jour -1

Bonjour à tous,

Peux-tu essayer avec :

VB:
Sub Enreg_Pdf()
Dim Nomfichier As String, Chemin As String
Nomfichier = Format(Sheets("Dossier").Cells(2,2), "yymmdd")
Chemin = "C:\Documents\Dossier_"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Nomfichier & ".pdf"
End Sub

A+ à tous
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
245
Réponses
3
Affichages
672
Réponses
10
Affichages
547
Réponses
3
Affichages
887
Retour