format date personnalisé

[pascal21]

bonjour
dans une cellule (disons S5), je souhaite écrire une date de la façon suivante
28 11 2011 (sans les / ) (cette cellule est reprise pour nommer une copie PDF par la suite)
j'ai mis le format date sur cette cellule pour que ça m'affiche lundi 28 novembre 2011
comment réaliser cela
j'aimerais que ce format apparaisse comme nom du PDF
merci de votre aide
j'ai l'impression que je ne suis pas clair
si vous avez une solution pour écrire avec le /, je suis partant
kiki29 m'avais fais ce code qui fonctionne pour la copie PDF mais il y a un soucis avec le format date

Sub pdf()
Range("A1:Y57").Select

Option Explicit

Sub Tst_2007()
Dim sNomDossier As String
Dim sNomFichierPDF As String

    sNomDossier = ThisWorkbook.Path
    sNomFichierPDF = Trim$(Feuil1.Range("S5"))

    If Len(sNomFichierPDF) > 0 Then
        If NomFichierValide(sNomFichierPDF) Then
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                            Filename:=sNomDossier & "\" & _
                                                      sNomFichierPDF & ".pdf" _
                                                      , Quality:=xlQualityStandard, _
                                            IncludeDocProperties:=True, _
                                            IgnorePrintAreas:=False, _
                                            OpenAfterPublish:=False
        Else
            Feuil1.Range("S5").Select
            MsgBox "Nom de fichier invalide", vbOKOnly + vbInformation, "Nom de Fichier"
        End If
    End If
End Sub

Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const CaracInterdits As String = """*/:<>?[\]|"

    NomFichierValide = True
    For i = 1 To Len(CaracInterdits)
        If InStr(sChaine, Mid$(CaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function

oupssss! j'aurais peut-être du rester sur le même fil
désolé!!!!

 

[dra72]

Re : format date personnalisé

Bonjour Pascal,

sNomFichierPDF = Format(Feuil1.Range("S5"), "dd mm yyyy")

Cordialement

 

[pascal21]

Re : format date personnalisé

bonjour dra72
bon bin là ça n'apporte rien de plus

 

[dra72]

Re : format date personnalisé

Désolé

Mais c'est ce que j'avais cru comprendre dans ce que tu cherchais à obtenir.

Peut-être qu'avec un petit exemple ...

 

[geraldine69]

Re : format date personnalisé

Bonjour Pascal,

Je ne sais pas si j'ai bien compris ton problème
Mais si tu veux obtenir l'écriture complète de la date sous la forme Dimanche 27 Novembre 2011
il faut mettre ceci :

sNomFichierPDF = Format(Feuil1.Range("S5"), "dddd dd mmmm yyyy")

Géraldine

 

[pascal21]

Re : format date personnalisé

bonjour
ce que je souhaite en fait, c'est:
soit écrire la date comme cela 28 11 2011 ce format n'est pas compris comme une date par excel
soit l'écrire comme cela 28/11/2011 et que la macro de kiki29 autorise ce format

 

[pascal21]

Re : format date personnalisé

et bin ça fonctionne géraldine
merci

 

[Jiheme]

Re : format date personnalisé

Bonjour le fil, re à tous

As tu essayé un format personalisé dans ta cellule S5 du genre :

##" "##" "####

Mais je ne suis pas sûr que le nom de fichier gardera les espaces, car ce n'est que de l'affichage.

A+

 

[dra72]

Re : format date personnalisé

ce que je souhaite en fait, c'est:
soit écrire la date comme cela 28 11 2011 ce format n'est pas compris comme une date par excel
soit l'écrire comme cela 28/11/2011 et que la macro de kiki29 autorise ce format

Donc tu veux l'écrire? Mais où? dans ta cellule Excel (S5)?

La solution que je t'ai donnée te retournais le nom de ton fichier PDF sous la forme souhaitée (28 11 2011). mais effectivement sans modifier ta cellule.