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

pilotebien · 20 Mai 2021

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.

pilotebien · 21 Mai 2021

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

dev_co · 20 Mai 2021

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 · 20 Mai 2021

Bonsoir le forum,
un petit changement dans le code

VB:

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 · 21 Mai 2021

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

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

pilotebien

XLDnaute Nouveau

Pièces jointes

pilotebien

dev_co

XLDnaute Occasionnel

kingfadhel

XLDnaute Impliqué

pilotebien

XLDnaute Nouveau

Discussions similaires