Microsoft 365 date souci sur nom du PDF créé

[Usine à gaz]

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 :

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]

Bonjour Lionel

Je te propose 2 solutions

Solution 1 :

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

Solution 2

MaDateX= Replace([Z2].Value, " ", ".")

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

Merci de ta reponse

@Phil69970

 

[Usine à gaz]

Bjr Phil69970 🙂
Merci pour tes propositions.
Solution 1 de donne 2023.04.07
Solution 2 ne donne rien mais je n'ai pas su utiliser MaDateX= Replace([Z2].Value, " ", ".")
🙂

 

[Phil69970]

Re

Oups ! J'ai compris à l'envers

Solution 1

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

Solution 2

MaDateX= Replace([Z2].Value, ".", " ")

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

Et pour la solution 2 c'est simple tu copies le code en remplacement de ton code existant

Donc tu remplaces

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

Par la solution 2 ==> Tu fais un copier / coller de mon code

@Phil69970

 

[Usine à gaz]

Merci Phil69970 🙂

Les 2 solutions fonctionnent bien
Toutefois, elles me sortent 07 04 23 alors que je voudrais 2023 04 07
ça me permet de les classer par ordre de date
Je vais voir si je peux modifier
En tout cas, ça marche 🙂
🙂

 

[Phil69970]

Re

Cela devrait ressortir dans le même ordre que tu as la date en Z2

Z2 (formaté aaaa mm jj),

Donc si ta date en Z2 est 2023.04.07 MadateX devrait être 2023 04 07

Et dans la solution 1 idem cela enlève juste le point entre la date

@Phil69970

 

[Usine à gaz]

J'ai un petit fichier test
🙂

 

[Cousinhub]

Bonjour,
Essaie ceci :

Dim MaDat As String
MaDat = Format(Range("F2").Value, "yyyy mm dd")

Quelque soit le format appliqué dans une cellule, si cette cellule contient une date, c'est qu'elle contient un nombre. Et qu'il faut mettre en format adapté.
Bonne apm

 

[Cousinhub]

Re-,
Et j'ajouterais que mettre des espaces dans des noms de fichiers n'a jamais été une bonne idée...
Pour ma part, je faisais ainsi :

MaDat = Format(Range("F2").Value, "yyyy_mm_dd")

A toi de voir

 

[Usine à gaz]

Bjr bhbh 🙂
Merci pour ton code ça fonctionne.
Je l'ai utilisé comme suit : MaDat = Format(Range("F2").Value, "yyyy mm dd") pour le besoin de ma création de PDF, pour classement avec d'autres fichiers dans un dossier.
🙂

 

[Phil69970]

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

 

[Usine à gaz]

R-Bjr @Phil69970 🙂
Je confirme et je te remercie
🙂

 

[Cousinhub]

R-Bjr @Phil69970 🙂
Je confirme et je te remercie
🙂

Hi,
Tu portes vraiment bien ton nom.....
Une solution basée sur un format aléatoire t'est préférable à une solution pérenne....
Continue comme ça....
Au plaisir

 

[job75]

Bonsoir Lionel, le fil,

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

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

A+

 

[Cousinhub]

Bonsoir Lionel, le fil,

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

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

A+

Hi,
Justement, dans sa cellule, c'est 2023.04.07 et il veut 2023 04 07...
Donc il n'utilise nullement la date, juste le format qu'il applique à ce jour, et qui, un jour, ne va plus lui plaire...