Discussion :

[Bourezak]

Bonjour et merci pour vos réponses bien utiles.

Voici mon code

*****************************

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
 
Dim x As Date
 
Dim jour As String
Dim Mois As String
Dim année As String
 
x = Date
 
jour = Mid(x, 1, 2)
Mois = Mid(x, 4, 2)
année = Mid(x, 7, 4)
 
       MsgBox ([jour]-[Mois]-[année])
 
End Sub

*****************************

Je souhaiterais afficher dans la MSGbox non pas une opération arthmétique mais uniquement (01-19-2007) ...

Merci d'avance de votre temps consacré.

[Gary_Stoupy]

Bonjour,

pas bien compliqué si ???

Code :

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

MsgBox (" " & jour & "-" & mois & "-" & annee & ".")

Enfin si jme trompe pas...