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

Phil69970 · 7 Avril 2023

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 · 7 Avril 2023

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 · 7 Avril 2023

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

Usine à gaz à dit:

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 · 7 Avril 2023

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 · 7 Avril 2023

Re

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

Usine à gaz à dit:
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 · 7 Avril 2023

J'ai un petit fichier test
🙂

Cousinhub · 7 Avril 2023

Bonjour,
Essaie ceci :

VB:

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 · 7 Avril 2023

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 :

VB:

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

A toi de voir

Usine à gaz · 7 Avril 2023

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 · 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

Usine à gaz · 7 Avril 2023

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

Cousinhub · 7 Avril 2023

Usine à gaz à dit:
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 · 7 Avril 2023

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+

Cousinhub · 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+

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

Microsoft 365 date souci sur nom du PDF créé

Usine à gaz

XLDnaute Barbatruc

Phil69970

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 date souci sur nom du PDF créé

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency