Format date enregistrement VBA [Résolu/Fermé]

Signaler
Messages postés
24
Date d'inscription
dimanche 25 février 2007
Statut
Membre
Dernière intervention
30 mars 2007
-
Messages postés
24
Date d'inscription
dimanche 25 février 2007
Statut
Membre
Dernière intervention
30 mars 2007
-
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

1 réponse

Messages postés
13
Date d'inscription
mercredi 28 février 2007
Statut
Membre
Dernière intervention
20 décembre 2007
35
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
Messages postés
24
Date d'inscription
dimanche 25 février 2007
Statut
Membre
Dernière intervention
30 mars 2007

Bonjour Didier,

j'essaie le forcage de la date et je te tiens au courrant
Merci pour tout
Messages postés
24
Date d'inscription
dimanche 25 février 2007
Statut
Membre
Dernière intervention
30 mars 2007

Bonjour didier,

merci encore une fois,
ça marche impect

@+