Microsoft 365 récupérer une date sur une cellule en VBA

[pilotebien]

Bonjour,

dans mon fichier, je cherche a faire apparaitre sur mon état PDF la date de la cellule [F1].
Actuellement, n'apparait la date que du jour.
Quand je mets dans le code la cellule, ma macro bogue.
J'ai fais des recherches sur le net mais je ne trouve pas le chemin.
Merci de votre aide.

 

[dev_co]

Bonsoir
Fort brouillon pour un fichier bien fait mais très complexe si on ne connait pas le contexte
Donc explique la démarche qui fait que ..?

 

[kingfadhel]

Bonsoir le forum,
un petit changement dans le code

Sub ExportPDF()
    'Déclaration des variables
    Dim NomDossier As String
    Dim CheminDossier As String
    'Nom de dossier
    NomDossier = Application.InputBox("Dossier Enregistrement :", "Fiches")
    MkDir "G:\Gestion Materiel ETL\" & NomDossier
    CheminDossier = "G:\Gestion Materiel ETL\" & NomDossier & "\"
    'Enregistrement au format PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        CheminDossier & Range("B3").Value & Format(Range("F1"), "_ddmmyy_") & Range("c1").Value & "Matériels" & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    from:=1, to:=1, OpenAfterPublish:=False
    
End Sub

 

[pilotebien]

Merci pour vos retours.
Je comprends le message dev_co mais il est difficile d'expliquer sont attente quand on a pas les termes techniques,
En tout cas merci de votre aide et du code donné par kingfadhel. J'ai réussi à l'intégrer à mon fichier. Cela fonctionne. Je peux maintenant passer a une autre étape de la construction de mon fichier de gestion.
Merci et bonne continuité.