Discussion :

[flamel]

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.

[mercatog]

un test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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.

[sabzzz]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

x = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd-mm-yy")

[Didier Gonard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Didier Gonard]

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

ca dépend du contexte :



c'est pourquoi je demandais :

à quelle fin ?

tu dis :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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