Macro - enregistrement avec date du jour

Bonjour à tous,

Je me présente, ELISA, étudiante en ressources humaines

Dans le cadre de mon contrat d'alternance, on me demande d'améliorer une fiche Excel.

Cependant, mes connaissances arrivent à bout et j'ai vraiment besoin d'aide.

Je m'explique, mon tuteur aimerais que la fiche incident s'envoie sur une adresse mail , s'imprime et s'enregistre par une macro automatiquement sur le bureau en PDF avec comme nom la désignation de l'installation (cellule m14) et la date du jour.

J'ai beaucoup travaillé sur le sujet avant de demander de l'aide. J'ai réussi à créer l'envoie, l'impression puis dans un autre bouton j'ai crée l'enregistrement en PDF. Seulement mon tuteur, souhaiterais que cela se fasse en seul bouton.

Pouvez -vous m'aider ?

Ensuite, j'ai réussi l'enregistrement en PDF avec pour titre la cellule M14 mais je n'arrive pas à insérer également la date du jour.

Est-ce possible avec la fonction aujourd'hui ?

Vous trouverez ci-joint le ficher.

Je vous remercie d'avance de m'avoir lu et surtout pour votre éventuelle aide.

J'espère avoir été claire sur ma demande

Bonne journée a tous,

Elisa

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

Merci beaucoup pour votre aide !

Je sais pas s'il s'agit d'un problème sur mon ordinateur mais lorsque j'ouvre la fiche modifié il apparait un message d'erreur lors de l'enregistrement.

Vous trouverez une capture d'écran de mon ordinateur.

Avez-vous rassembler l'enregistrement et l'envoi sur le bouton d'envoi ?

Bonjour,

Le format date n'était pas valide.

Cdlt.

Sub EnrPDF()
'
' EnrPDF Macro
' Sauvegarder la feuille en PDF

    Dim a$
    'a$ = ActiveSheet.Name
    a$ = Range("M14").Value & " - " & Format(Date, "yyyymmdd")
    ChDir ThisWorkbook.Path
    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Fichier_" & a$ & ".pdf", _
    Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub