Microsoft 365 date souci sur nom du PDF créé

Usine à gaz · 7 Avril 2023

Bonjour à toutes et à tous

Je n'arrive à à trouver comment faire ce qui suit :

Dans mon fichier, en Z2 (formaté aaaa mm jj), j'ai une date et sa valeur est 2023.04.07
J'ai besoin de mettre cette date dans la création d'un PDF :

Code:

ChDir "C:\Users\lionel\Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        "C:\Users\lionel\Desktop\" & [Z2].Value & " " & [k18] & " " & "Comparaison" & ".PDF", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

Je voudrais que dans le nom du PDF, la date soit 2023 04 07 mais elle sort 2023.04.07

J'ai tenté de tas de formules sans trouver comment faire.
Auriez-vous la solution ?
Si besoin, je joindrai un petit fichier test.
Un grand merci à toutes et à tous

Phil69970 · 7 Avril 2023

Re

Ceci fonctionne

ChDir "C:\Users\lionel\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\lionel\Desktop\" & Replace([f2].Text, ".", " ") & " " & [g2] & " " & "Comparaison" & ".PDF", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

et donne ce PDF

@Phil69970

Cousinhub · 7 Avril 2023

Re-,
Et ce sera ma dernière intervention sur ce fil....
Lionel, tout ce que tu peux lire, voir, entendre dans tes différents fils, tu as aussi le droit de t'en tirer tes propres avis...
Et ne pas forcément aller au code "le plus court"....
VBA s'en fout du nombre de lignes et/ou de du nombre de caractères.
Le plus important, c'est le résultat.
L'avoir en 0.000589 ou en 2 secondes, et alors??????
Avoir un code qui fait 568 caractères, ou un autre, qui en fait 895, et alors????
Avoir une ligne de plus???
Par contre, un jour, tu changes quelque chose de basique (comme un format de date), et ben, est-ce mon code va suivre???
Quand je développais (mais, ça, c'était avant...), je me posais toujours la question, "Mais qu'est-ce que l'utilisateur va pouvoir faire comme "adaptation" à son goût"???) (en gros, quelle connerie il peut faire...)
Réfléchis toujours à ce principe, et dis-toi qu'un fichier "macro" n'est utilisable que tant que l'initiateur est encore là...
Bonne soirée, et bon W-E

job75 · 7 Avril 2023

bhbh à dit:
Justement, dans sa cellule, c'est 2023.04.07 et il veut 2023 04 07...

Le seul fichier que Lionel ait fourni est celui du post #7.

Et en F2 est affiché 2023 04 07 c'est tout.

Usine à gaz · 7 Avril 2023

job75 à dit:
Bonsoir Lionel, le fil,

J'avoue ne pas comprendre vos échanges et codes car avec [F2].Text c'est assez évident :

VB:

Sub imprim_pdf() ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & [F2].Text & " " & [G2] & " " & "Comparaison.pdf", OpenAfterPublish:=False End Sub

A+

Bonsoir Gérard,
Merci, c'est simple et nickel.

Usine à gaz · 7 Avril 2023

bhbh à dit:
Re-,
Et ce sera ma dernière intervention sur ce fil....
Lionel, tout ce que tu peux lire, voir, entendre dans tes différents fils, tu as aussi le droit de t'en tirer tes propres avis...
Et ne pas forcément aller au code "le plus court"....
VBA s'en fout du nombre de lignes et/ou de du nombre de caractères.
Le plus important, c'est le résultat.
L'avoir en 0.000589 ou en 2 secondes, et alors??????
Avoir un code qui fait 568 caractères, ou un autre, qui en fait 895, et alors????
Avoir une ligne de plus???
Par contre, un jour, tu changes quelque chose de basique (comme un format de date), et ben, est-ce mon code va suivre???
Quand je développais (mais, ça, c'était avant...), je me posais toujours la question, "Mais qu'est-ce que l'utilisateur va pouvoir faire comme "adaptation" à son goût"???) (en gros, quelle connerie il peut faire...)
Réfléchis toujours à ce principe, et dis-toi qu'un fichier "macro" n'est utilisable que tant que l'initiateur est encore là...
Bonne soirée, et bon W-E

Bonsoir bhbh

Je suis bien d'accord avec ton écrit.
Je ne suis qu'un bricoleur qui essaie d'adapter et de réadapter selon mes besoins qui évoluent. D'où des usines à gaz mais qui fonctionnent tout de même grâce à vous tous.
Encore merci
Bon WE à toi aussi

Microsoft 365 date souci sur nom du PDF créé

Usine à gaz

XLDnaute Barbatruc

Phil69970

Cousinhub

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires