Discussion :

[Nacera]

Bonjour;

J'ai le mois affiché sous format numérique;
il y'a t-il un moyen pour l'afficher sous format abrégé
cad au lieu de 1 j'affiche janv, au lieu de 3 j'affiche mar ect

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Commande16_Click()
Dim d1 As Date
Dim d2 As Date
Dim m1 As Integer
 
 
d1 = Date_Debut
d2 = Date_Fin
mois1.Format = "mmm"
mois1 = Month(d1)
End Sub

j'ai essayé le code suisvant mais ça ne m'a pas servis

merci

[Renardo]

Bonjour
Essai

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande16_Click()
Dim d1 As Date
Dim d2 As Date
Dim m1 As Integer
 
 
d1 = Date_Debut
d2 = Date_Fin
mois1 = Format(d1,"mmm")
End Sub

[Nacera]

merci beaucoup pour votre aide

ça marche avec ta solution

merci