Format date enregistrement VBA Résolu/Fermé

Question

Bonjour,

j'ai un classeur dont je récupére la date dans un cellule et à la fermeture de celui ci ,il enregistre le classeur dans un repertoire.
le seul soucie que j'ai c'est que la date s'écrit au format jmaaaa(132007)
et je voudrais avoir le format 01032007
ci joint le code 


Private Sub Workbook_BeforeClose(Cancel As Boolean)

MsgBox "La FNC va etre enregistré", vbOK + vbInformation, "FNC"


Dim jour As String

jour = Range("FNC!H2")


If CStr(Month(jour)) = 1 Then
ChDrive "j"
ChDir "j:\01 janvier\"
ActiveWorkbook.SaveAs Filename:=CStr(Day(jour)) & CStr(Month(jour)) & CStr(Year(jour))  
End If

If CStr(Month(jour)) = 2 Then
ChDrive "j"
ChDir "j:\02 fevrier\"
ActiveWorkbook.SaveAs Filename:=CStr(Day(jour)) & CStr(Month(jour))  & CStr(Year(jour)) & (Numero)
End If

End Sub


Je vous remercie pour l'aide que vous pourrez m'apporter

didier09 · Answer

Bonjour Eric,
Je profite d'être au boulot pour répondre à ta requête.
Il faut que tu force le format de la date.Essaye le code suivant.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

MsgBox "La FNC va etre enregistré", vbOK + vbInformation, "FNC"


Dim jour As String
Dim LaDate As String
Dim NomClasseur As String

jour = Range("FNC!H2").Value
LaDate=Format(jour,"ddmmyyyy")
NomClasseur=LaDate & ".xls"

If CStr(Month(jour)) = 1 Then
     ChDrive "j"
     ChDir "j:\01 janvier\"
     ActiveWorkbook.SaveAs Filename:=NomClasseur
End If

If CStr(Month(jour)) = 2 Then
     ChDrive "j"
     ChDir "j:\02 fevrier\"
    ActiveWorkbook.SaveAs Filename:=NomClasseur
End If

End Sub

Format date enregistrement VBA

1 réponse

Discussions similaires