Format date enregistrement VBA

Résolu/Fermé

Eric34370 Messages postés 24 Date d'inscription dimanche 25 février 2007 Statut Membre Dernière intervention 30 mars 2007 - 10 mars 2007 à 17:12
Eric34370 Messages postés 24 Date d'inscription dimanche 25 février 2007 Statut Membre Dernière intervention 30 mars 2007 - 14 mars 2007 à 11:13

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

A voir également:

Format date enregistrement VBA
Telecharger format factory - Télécharger - Conversion & Codecs
Format epub - Guide
Format apfs - Guide
Hp format tool - Télécharger - Stockage
Vba format texte ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

didier09 Messages postés 13 Date d'inscription mercredi 28 février 2007 Statut Membre Dernière intervention 20 décembre 2007 36
11 mars 2007 à 10:40

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

Eric34370 Messages postés 24 Date d'inscription dimanche 25 février 2007 Statut Membre Dernière intervention 30 mars 2007
11 mars 2007 à 18:28

Bonjour Didier,

j'essaie le forcage de la date et je te tiens au courrant
Merci pour tout

Eric34370 Messages postés 24 Date d'inscription dimanche 25 février 2007 Statut Membre Dernière intervention 30 mars 2007
14 mars 2007 à 11:13

Bonjour didier,

merci encore une fois,
ça marche impect

@+

Discussions similaires

Menace "Interpol" après webcam coquine

Prélèvement JM Jacquie et Michel date.

[VBA] format de date dans textbox

Problème Whatsapp - "La date est incorrecte"

Pix

Discussions similaires

Newsletters