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

sergiofox · 1 Décembre 2019

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 · 1 Décembre 2019

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 · 1 Décembre 2019

Merci de votre aide

Staple1600 · 1 Décembre 2019

Re

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

sergiofox · 1 Décembre 2019

Staple1600 à dit:
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 · 1 Décembre 2019

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 · 1 Décembre 2019

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 · 1 Décembre 2019

Staple1600 à dit:
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 · 1 Décembre 2019

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 m-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 · 1 Décembre 2019

Staple1600 à dit:
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

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

sergiofox

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

sergiofox

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

sergiofox

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

sergiofox

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

sergiofox

XLDnaute Junior

Discussions similaires