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

sergiofox

XLDnaute Junior
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

XLDnaute Barbatruc
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.
 

patricktoulon

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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

XLDnaute Junior
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"
VB:
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

XLDnaute Barbatruc
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 ;)
 

Discussions similaires

Statistiques des forums

Discussions
311 740
Messages
2 082 049
Membres
101 882
dernier inscrit
XaK_