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]

Re

patricktoulon
Problème de lunettes? 😉
1) Je parlais du fait que j'avais supprimé ce dont on peut se passer dans la syntaxe d'export PDF
Et que tu as donc rajouté (alors qu'on peut s'en passer)

2) Ne pas comprendre est une chose.
Mais rien n’empêche d'être curieux surtout avec nos navigateurs modernes 😉
(Sélection du mot qui pose question clic-droit Rechercher avec le moteur par défaut... et voilou)
Et si j'utilise ThisWorkBook.Path c'est simplement pour éviter les problèmes de confidentialité (RGPD oblige)
Car ThisWorkBook.Path & "\" fonctionnera à tous les coups (sur un classeur enregistré).
Et c'est ce qu'on demande à un code VBA de test
Bref, le principal n'est pas là, sans parler du Path, la syntaxe pour avoir la date dans le nom de fichier est connu depuis belle lurette.

 

[sergiofox]

Merci de votre aide 😉

 

[Staple1600]

Re

sergiofox
Donc c'est bon tu as réussi à mettre la date dans le nom de ton PDF?

 

[sergiofox]

Re

sergiofox
Donc c'est bon tu as réussi à mettre la date dans le nom de ton PDF?

Oui tout en essayant de comprendre vos explications en copiant/collant les différents codes sur un word j'ai compris mes bêtises et mes erreurs.
Encore merci à vous.

 

[patricktoulon]

re
@Staple1600 je n'avais pas compris que tu parlais des paramètres d'export pour les rajouts
soit plus clair la prochaine fois 😉
et thisworkbook.path si le fichier est enregistré oui mais faut il encore qu'il soit au bon endroit 😉
et vu le chemin +nom suffixé par une date ca m'étonnerait que se soit le cas
qui aurait l'idée d'enregistrer son app dans les downloads? pas moi en tout cas 😉

 

[Staple1600]

Re

patricktoulon
Pour ThisWorkBook.Path
Cela permet d'éviter ce genre de chose sur le forum
chemin = "C:\Users\marie-rose\Downloads\Sauvegarde feuilles de match\"
Ici c'est pas très explicite
Mais parfois cela peut être plus au moins confidentiel
En postant des exemples de code avec ThisWorkBook.Path
Je m'evite d'avoir à penser RGPD
Voila tout 😉
Késako RGPD me diras-tu ?
Voir ci-dessous 😉

Pour tous
1 - Conformité RGPD
Tout message ou fichier déposé sur ce site ne doit pas comporter de données à caractère personnel (DCP).
Il convient d’anonymiser toutes les données permettant d’identifier directement ou indirectement une personne.
XLD ne saurait être tenu responsable au cas où un visiteur du site posterait des données non conformes à la législation en vigueur.

 

[sergiofox]

Re

patricktoulon
Pour ThisWorkBook.Path
Cela permet d'éviter ce genre de chose sur le forum
chemin = "C:\Users\marie-rose\Downloads\Sauvegarde feuilles de match\"
Ici c'est pas très explicite
Mais parfois cela peut être plus au moins confidentiel
En postant des exemples de code avec ThisWorkBook.Path
Je m'evite d'avoir à penser RGPD

J'essaye de suivre vos raisonnements et perso je trouve intéressant de pouvoir partager des savoirs et en accepter parfois que d'autres soient différents, pour éviter les RGPD comme vous dites, vous remarquerez qu'au départ de mon poste je parle bien de " nom de fichier de sauvegarde. pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\le nom du fichier de sauvegarde.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

parce que éffectivement le respect de la vie privée reste une préoccupation, mais encore une fois merci de votre aide, car sans vous les novices dans mon genre, resterait des bêtas encore longtemps.

 

[Staple1600]

Re

=>sergiofox
Pour infos, si j'ajoute avant un paragraphe un truc du genre
=>pseudo
ou
pseudo
C'est que le passage qui suit s'adresse à la personne derrière le pseudo.

Donc en l'occurrence, mon petit speech sur ThisWorkBook.Path c'était pour patricktoulon qui semblait se demander pourquoi j'utilisais ThisWorkBook.Path 😉

NB: Donc là tu sais à qui s'adresse ce message-ci 😉

PS: Il n'y a point de bêtas sur le forum, juste des personnes qui ont commencé à pratiquer Excel ou 20ième siècle et d'autres seulement au 21ième siècle 😉

 

[sergiofox]

Re

=>sergiofox
Pour infos, si j'ajoute avant un paragraphe un truc du genre
=>pseudo
ou
pseudo
C'est que le passage qui suit s'adresse à la personne derrière le pseudo.

J'en prends bonne note pour l'avenir 🙂