format de date de vba

Version imprimable

07/04/2010, 19h12
flamel

format de date de vba

Bonjour,

Je souhaiterais pouvoir formater des dates en VBA et je ne trouve pas comment, sauf en créant un morceau de code.
Y a-t-il une instruction en une ligne?
Du genre: obtenir jj-mm-aa au lieu de jj/mm/aa,
Et pour les heures ne pas utiliser les ' : '.

Merci si vous pouvez m'aider.

un test

Code:

1
2
3
4
5
Dim dte As Date
dte = DateSerial(1986, 11, 24) + TimeSerial(11, 52, 17)
MsgBox Format(dte, "dd_mm_yyyy") 'format date
MsgBox Format(dte, "hh mm") 'format heures minutes
MsgBox Format(dte, "dd-mm-yyyy hh.mm") 'format complet

08/04/2010, 09h09
Didier Gonard

Bonjour,

vois ici :

Création, enregistrement et fusion de format personnalisés

et là :

Comprendre et gérer les dates sous Excel et en VBA

cordialement,

Didier
08/04/2010, 18h57
flamel

Merci mercatog .

J'ai copier-coller le code que tu me donnes, donc sans fautes, mais j'obtiens une erreur 450 suivante :

Erreur de compilation.
Nombre d'arguments incorrects ou affectation de propriété incorrecte.

Merci ormonth pour les adresses, j'avais déjà vu, mais obtenu l'erreur.
D'où cela peut-il venir ?

J'ai Excel 2003.

Merci.
08/04/2010, 19h32
sabzzz

bonjour,

Code:

x = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd-mm-yy")
08/04/2010, 23h18
Didier Gonard
Citation:

Je souhaiterais pouvoir formater des dates en VBA et je ne trouve pas comment, sauf en créant un morceau de code.

à quelle fin ?

sinon...
Code:

1 2 3 4 5 6 7 8 9 Sub Bizarroidale() Dim dtmMadate As Date dtmMadate = #4/8/2010 10:19:00 PM# With Cells(10, 2) .Value = dtmMadate .NumberFormat = "dd-mm-yyyy hh~mm" End With End Sub
cordialement,

Didier
09/04/2010, 10h12
flamel

Merci ormonth,

Il reste toujours les ':' entre heures et minutes.
Le but est le suivant. Dans un code VBA pour sauvegarder, j'ajoute le temps pour définir la sauvegarde. Il ne doit pas y avoir de '/' ni de ':' , c'est pourquoi je veux un format acceptable, sans avoir à changer les habitudes dans Windows.

Citation:

Il reste toujours les ':' entre heures et minutes.

ca dépend du contexte :

http://stock.dg-solutions.fr//images...avec tildé.png

c'est pourquoi je demandais :

Citation:

à quelle fin ?

tu dis :

Citation:

Dans un code VBA pour sauvegarder, j'ajoute le temps pour définir la sauvegarde.

Est-ce que ton but est de sauvegarder un fichier avec un horodatage dans le nom qui aurait comme particularité d'éviter les : qui sont refusés dans le nommage des fichiers ;)
Dans quel cas c'est un code du genre qu'il te faut..
Code:

1 2 3 4 5 Dim strExtractName As String Dim strHorodat As String strHorodat = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") strExtractName = gvStrChemS12 & "Extraction-Liste " & gvstrTrigramme & " du " & strHorodat Workbooks(wkbPass).SaveAs Filename:=strExtractName
ou :
Code:

1 2 3 4 5 6 7 8 9 10 Sub HoroSauv() Dim strExtractName As String Dim strHorodat As String Dim dtmMadate As Date dtmMadate = #4/29/2010 10:19:00 PM# strHorodat = "le " & Format(dtmMadate, "dd-mm-yyyy ") & " a " & Format(dtmMadate, "hh-mm-ss") ThisWorkbook.SaveAs Filename:="D:\" & "MonClasseur " & strHorodat End Sub
cordialement,

Didier