Format date enregistrement VBA
Résolu
Eric34370
Messages postés
24
Date d'inscription
Statut
Membre
Dernière intervention
-
Eric34370 Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
Eric34370 Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Format date enregistrement VBA
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Format apfs - Guide
- Format doc - Guide
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
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
j'essaie le forcage de la date et je te tiens au courrant
Merci pour tout
merci encore une fois,
ça marche impect
@+