Autres [résolu]Ajouter une date dans une macro

[sergiofox]

Bonjour à tous,
Pour envoyer par mail la feuille de résultat en format pdf via un bouton j'ai enregistre une macro dans développeur :
Sub SavePDF()
'
' SavePDF Macro
'

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\le nom du fichier de sauvegarde.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Je souhaiterais rajouter la date du jour à l'enregistrement , mais je n'y arrive pas 🙁
Pourriez-vous m'aider ? merci d'avance

 

[Staple1600]

Bonjour le fil, sergiofox

sergiofox
Ajouter la date, oui mais où?
Dans le nom du fichier ?

 

[Staple1600]

Re

Si la réponse est oui à ma précédente question alors ceci devrait fonctionner

Sub SavePDF()
Dim strPath$, Fichier$
strPath = ThisWorkbook.Path & "\" ' à adapter
Fichier = Format(Now, "ddmmyy_hhmmss") & ".pdf" ' format à adapter ddmmyy pour avoir juste la date
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & Fichier
End Sub

 

[sergiofox]

Bonjour le fil, sergiofox

sergiofox
Ajouter la date, oui mais où?
Dans le nom du fichier ?

Bonjour staple1600, oui je voudrais ajouter la date du jour après
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\le chemin du dossier de sauvegarde de mon pdf avec la date du jour.pdf" _

J'ai testé votre modèle mais il me donne une erreur

 

[sergiofox]

la commande actuelle est celle-ci

Sub SavePDF()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\marie-rose\Downloads\Sauvegarde feuilles de match\BLANC-RY VETERANS 8.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub

 

[Staple1600]

Re

Ce n'est pas mon code mais votre code (je parle de la ligne strPath adaptée bizarremnt)
str pour String et Path pour chemin
Donc votre adaptation n'est pas bonne 🙄
Cette ligne veut dire
strPath = ThisWorkbook.Path & "\"
Le chemin vers le dossier d'export du PDF correspond au chemin du classeur actif (celui qui contient la macro)
Je vous laisse faire adaptation nécessaire puisque je ne peux pas faire récupérer le code VBA sur une copie d'écran...

 

[patricktoulon]

bonjour le fils

Sub SavePDF()
Dim chemin$,fichier$
chemin="C:\Users\marie-rose\Downloads\Sauvegarde feuilles de match\"
Fichier =" BLANC-RY VETERANS 8 " &" Format(Now, "ddmmyy_hhmmss") & ".pdf" ' format à adapter ddmmyy pour avoir juste la date

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & fichier _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

End Sub

 

[Staple1600]

Bonjour à toi aussi patricktoulon

patricktoulon
Quitte à reprendre un bout du code que j'ai posté
Pourquoi y rajouter ce que j'avais enlevé ? 🙄


[aparté]
La synergie entre XLdiens, ce n'est plus ce que c'était...🙄
Tout comme l'émulation d'ailleurs...
[/aparté]

 

[Staple1600]

Re

sergiofox
Un moyen d'éviter les erreurs d’adaptation, c'est d'utiliser une MsgBox
En faisant ce petit test, tu aurais vu tout de suite la .ouille dans le potage 😉

Sub test()
Dim strPath
strPath = ThisWorkbook.Path & "\"
MsgBox strPath
strPath = ThisWorkbook.Path & "\" & "C:\Users\marie-rose\Downloads\Sauvegarde feuilles de match\BLANC-RY VETERANS 8.pdf"
MsgBox strPath
End Sub

 

[sergiofox]

Oups, quand on n'est novice c'est pas toujours évident de comprendre ce qui est certainement très simple pour vous 😳, je crois que je m'exprime très mal et bien évidement ce n'est pas facile pour vous de m'aider, je vais essayé d'être plus clair; sur ma feuille ouverte j'ai créer une macro manuellement avec "enregistrer une macro" enregistrer sous; j'ai choisi le chemin de dossier dans lequel je voulais sauvegarder le pdf avec son nom; après enregistrement il ouvre le pdf. pour visionner et l'envoyer voici le code actuel:

Sub SavePDF()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\marie-rose\Downloads\Sauvegarde feuilles de match\BLANC-RY VETERANS 8.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub

Dans ce code je souhaiterais juste ajouter la date du jour et qu'il s'enregistre en BLANC-RY VETERANS 8 Date du jour .pdf

Vos codes sont certainement les bons, mais comme je ne sais pas les interpréter ni placer certainement les infos du dossier de sauvegarde et ou du nom de fichier au bon endroit, je suis perdu.

 

[patricktoulon]

re
staple j'ai rien rajouter du tout je separe le chemin du non du fichier (toujours )
@sergiofox ma macro fait exactement ce que tu veux
et je vois pas ici le besoins d'utiliser le thisworkbook.path puisque le chemin est sensé être fixe amoins que le fichier reste dans les downloads ce qui me parait peu probable

 

[sergiofox]

re
staple j'ai rien rajouter du tout je separe le chemin du non du fichier (toujours )
@sergiofox ma macro fait exactement ce que tu veux
et je vois pas ici le besoins d'utiliser le thisworkbook.path puisque le chemin est sensé être fixe amoins que le fichier reste dans les downloads ce qui me parait peu probable

 

[patricktoulon]

re
oupss!! 😳 un guilemet karienafoutla

Sub SavePDF()
Dim chemin$, fichier$
chemin = "C:\Users\marie-rose\Downloads\Sauvegarde feuilles de match\"
fichier = " BLANC-RY VETERANS 8 " & Format(Now, "ddmmyy_hhmmss") & ".pdf" ' format à adapter ddmmyy pour avoir juste la date

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & fichier _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

End Sub

 

[Staple1600]

Re

patricktoulon
ma prose
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & Fichier
ta prose
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin & fichier _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True
C'est ce que j'appelle rajouter 😉

staple j'ai rien rajouter du tout je separe le chemin du non du fichier (toujours )

Moi itou, non ?
cf code VBA du message#3

=>sergiofox
Depuis le message#3, tu as la syntaxe pour formater la date du jour dans le nom du fichier
Et nous en sommes déjà au message#14 😉

 

[patricktoulon]

re
si tu veux j'utilise pas le même nom de variable
mais thisworkbook.path non non non non!!!!! ca t'en sais rien , laisse le demandeur faire a sa guise en fonction de son besoins surtout qu'il comprends pas forcement ce que cet expression veut dire et encore moins la manipuler ou en décortiquer le texte
il a stipulé un chemin en dur qui est sensé etre fixe , on le laisse en dur
rien empeche par la suite d'adapter la ligne chemin ou strpath