Format date enregistrement VBA
Résolu
Eric34370
Messages postés
24
Date d'inscription
Statut
Membre
-
Eric34370 Messages postés 24 Date d'inscription Statut Membre -
Eric34370 Messages postés 24 Date d'inscription Statut Membre -
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
Je vous remercie pour l'aide que vous pourrez m'apporter
--
cordialement Eric
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
--
cordialement Eric
Configuration: Windows XP Internet Explorer 7.0
1 réponse
-
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
