Transformation format date cellule pour nom fichier

Bonjour à tout le monde et merci d'avance pour votre aide.

Avant de décrire mon problème, j'ai cherché sur le forum mais je n'ai pas trouvé la solution.
Dans ma feuille Excel, dans la colonne A j'ai des dates au format jj/mm/aaaa (25/02/2025)

J'imprime ma feuille au format PDF. Je voudrais donner comme nom à ce fichier un format Nom Prénom - date de A mais au format jj mmmm aaaa (25 février 2025).

Pour l'enregistrement du PDF avec le Nom et le Prénom, pas de problème. En récupérant la date de A, idem mais comment la récupérer pour l'écrire sous un autre format? C'est là que je coince.

Merci de bien vouloir m'aider.

Bonjour Crazylib,

Utiliser la formule =Texte(A1;"jj/mmmm/aaaa")

Ce qui formatera comme souhaité.

Ou par VBA : Format([A1] , "dd/mmmm/yyyy")

Bonjour,

Une idée toute bête donc qui certaiinement ne te conviendra pas :

Si tu utilisais la formule =Texte(A1;"jj mmmm aaaa")

A voir

merci à tous les deux.

Jacky, je ne veux pas modifier le format sur ma feuille Excel, juste le modifier pour le nom du fichier PDF.
Je le voudrais sous la forme : "Facture Nom Prénom - 11 février 2025" alors qu'en cellule A j'ai 11/02/2025 et que je souhaite garder ce format.

Voici mon code :

Sheets(onglet_Facture_Multi_pdf).ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & "Factures " & Sheets(onglet_Facture_Multi_pdf).Range("H" & 3).Value & "\" & "Facture" & " " & Sheets(onglet_Paiement_Multi).Range("B" & x).Value & " " & Sheets(onglet_Paiement_Multi).Range("C" & x).Value & " - " & Sheets(onglet_Paiement_Multi).Range("A" & x).Value & ".pdf", _
        quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, from:=1, To:=1, _
        OpenAfterPublish:=False

J'avas bien compris, mais la proposition que nous t'avons faite peut très bien t'inscrire tes dates sous le format 11 février 2025 par exemple dans une autre colonne que tu cacheras et lorsque tu feras appel à la date pour construire ton nom de fichier tu feras appel à elle (qui est cachée)
Qu'en penses tu ?

J'ai déjà pas mal de colonnes cachées mais si je n'ai pas d'autres solutions, pourquoi pas cette idée effectivement

Sinon on pourrait peut être s'en sortir en VBA
A réfléchir

Re,

J'ain pensé à un petit bout de code que je trouve un peu lourd mais il fonctionne

Private Sub CommandButton1_Click()
    moment = Range("A1")
    tabl = Split(moment, "/")

    If tabl(1) = "01" Then tabl(1) = "Janvier"
    If tabl(1) = "02" Then tabl(1) = "Février"
    If tabl(1) = "03" Then tabl(1) = "Mars"
    If tabl(1) = "04" Then tabl(1) = "Avril"
    If tabl(1) = "05" Then tabl(1) = "Mai"
    If tabl(1) = "06" Then tabl(1) = "Juin"
    If tabl(1) = "07" Then tabl(1) = "Juillet"
    If tabl(1) = "08" Then tabl(1) = "Août"
    If tabl(1) = "09" Then tabl(1) = "Septembre"
    If tabl(1) = "10" Then tabl(1) = "Octobre"
    If tabl(1) = "11" Then tabl(1) = "Novembre"
    If tabl(1) = "12" Then tabl(1) = "Décembre"

    moment = tabl(0) & " " & tabl(1) & " " & tabl(2)
    MsgBox moment

End Sub

Donc à intégrer dans le tien au bon endroit lorsque tu construis ton chemin
Tiens moi au courant, svp

Cordialement

C'est complexe mais ça marche

Et bien c'est parfait !
A+

A nouveau,

Changer Par cette ligne de code

& Format(Sheets(onglet_Paiement_Multi).Range("A" & x), "dd-mmmm-yyyy") & ".pdf"

Ou la colonne A comporte la date.

Merci c'est exactement ça