Microsoft 365 Macro = Enregistrement en PDF avec la valeur d'une cellule

[alex.du25]

Bonjour,

Je cherche à créer une macro pour enregistrer un fichier excel en pdf avec la valeur d'une cellule (Date).
Actuellement ça fonctionne avec ce code => je souhaite que ce soit la date qui ce trouve dans une cellule car maintenant j'utilise le fichier à cheval sur 2 jours.

Sub Enregistrement_PDF()
'
' EnregistrerEtImprimer Macro
'
Dim Path As String, nom As String
Path = ActiveWorkbook.Path & "\temp\"
nom = Format(Date, "dd-mm-yyyy")


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\temp\" & Format(Date, "dd-mm-yyyy") & ".pdf"


Application.DisplayAlerts = False


MsgBox ("Le fichier a bien été enregistré en PDF.")

Application.Quit


End Sub

Merci d'avance à ceux qui pourront m'aider.
Alexandre

 

[kiki29]

Salut, regarde au bas de cette page Discussions similaires

 

[alex.du25]

Salut, regarde au bas de cette page Discussions similaires

Merci de l'infos mais j'ai déjà essayé mais ça ne fonctionne pas.

 

[jcf6464]

Bonjour vous tous et le forum,

Regarde là

XL 2019 - Nom et chemin VB enregistrement PDF

Bonjour à tous, En cherchant sur le forum, j'ai réussi tant bien que mal à faire un macro pour faire un export PDF. Les points que j'aimerai, pouvoir modifier, c'est : - que le fichier pdf s'enregistre dans le même répertoire que le fichier .xslm - que le nom du fichier pdf créé soit le texte...

www.excel-downloads.com

bonne continuation jcf6464

 

[Phil69970]

Bonjour @alex.du25 , @kiki29
Edit Bonjour @jcf6464

Essaye ceci tout simplement :

Sub Enregistrement_PDF()

Dim nom As String
nom = Format(Date, "dd-mm-yyyy")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & nom & ".pdf"
MsgBox ("Le fichier a bien été enregistré en PDF.")

End Sub

*L'enregistrement du pdf se fera dans le même dossier que le fichier excel.

Tu es sur de toi !

Merci de l'infos mais j'ai déjà essayé mais ça ne fonctionne pas.

==> https://www.excel-downloads.com/thr...iste-deja-sous-ce-nom.20051489/#post-20380927
Entre autre réponse....

Merci de ton retour

@Phil69970

 

[alex.du25]

Bonjour @alex.du25 , @kiki29
Edit Bonjour @jcf6464

Essaye ceci tout simplement :

Sub Enregistrement_PDF()

Dim nom As String
nom = Format(Date, "dd-mm-yyyy")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & nom & ".pdf"
MsgBox ("Le fichier a bien été enregistré en PDF.")

End Sub

*L'enregistrement du pdf se fera dans le même dossier que le fichier excel.

Tu es sur de toi !


Regarde la pièce jointe 1112348
==> https://www.excel-downloads.com/thr...iste-deja-sous-ce-nom.20051489/#post-20380927
Entre autre réponse....

Merci de ton retour

@Phil69970

Oui j'en sûr, et le code suivant c'est ce que j'utilise.

Sub Enregistrement_PDF()

Dim nom As String
nom = Format(Date, "dd-mm-yyyy")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & nom & ".pdf"
MsgBox ("Le fichier a bien été enregistré en PDF.")

End Sub

Comme j'ouvre le fichier à 21h et que je fais un enregistrement PDF après minuit ça ne me prend pas la bonne date, c'est pour cela que je souhaiterais que ça prenne la date dans une cellule.

@alex.du25

 

[job75]

Bonjour à tous,

je souhaiterais que ça prenne la date dans une cellule.

Je ne comprends pas l'intérêt de cette discussion.

Car il suffit de remplacer Date par [A1] si la date a été entrée en A1.

A+

 

[Wayki]

De ce que je comprend tu veux la date du jour non ? Ou une date autre que tu renseignes toi même ?
Si c'est la date à laquelle tu ouvres ton fichier et que tu l'enregistre à chaque fois le lendemain, peut être peux-tu essayer nom-1 tout simplement ?

 

[job75]

peut être peux-tu essayer nom-1 tout simplement ?

Plutôt tout simplement Date - 1 avec nom = Format(Date - 1, "dd-mm-yyyy")

 

[Phil69970]

Re

je souhaite que ce soit la date qui ce trouve dans une cellule

Si la date est dans la cellule A1 par exemple

Tu auras cela

Sub Enregistrement_PDF()

Dim nom As String
nom = Format([A1], "dd-mm-yyyy")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & nom & ".pdf"
MsgBox ("Le fichier a bien été enregistré en PDF.")

End Sub

*Et je plussoie Job75

Je ne comprends pas l'intérêt de cette discussion.

Car il suffit de remplacer Date par [A1] si la date a été entrée en A1.

*Plus je relis les différents posts et plus je me rends compte que je ne sais pas quelle date l'utilisateur veut vraiment avoir ....
Apparemment nous sommes 3 (Waykii, Job et moi) à nous poser les même question.

@Phil69970

 

[Valtrase]

Salut à tous,
Je pense voir ce qu'il veux, il doit avoir une date en A1, mais passer minuit cela change et cela n'est pas bon pour lui. Donc soit faire comme le dis si bien Job75 utiliser Date - 1, ou alors créer une Variable publique DateOuverture et l'initialiser à l'ouverture du classeur DateOuverture = Date, Mais bon....

 

[alex.du25]

Re


Si la date est dans la cellule A1 par exemple
Regarde la pièce jointe 1112354

Tu auras cela
Regarde la pièce jointe 1112355

Sub Enregistrement_PDF()

Dim nom As String
nom = Format([A1], "dd-mm-yyyy")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & nom & ".pdf"
MsgBox ("Le fichier a bien été enregistré en PDF.")

End Sub

*Et je plussoie Job75


*Plus je relis les différents posts et plus je me rends compte que je ne sais pas quelle date l'utilisateur veut vraiment avoir ....
Apparemment nous sommes 3 (Waykii, Job et moi) à nous poser les même question.

@Phil69970

Salut @Phil69970, merci ta solution me convient parfaitement

@alex.du25