Discussion :

[mawelle]

Bonjour,
j'ai une zone de texte correspondant à un champs (ANNEE_SAISIE) de type numérique et au format 0000;0;_
J'ai inscrit dans valeur par défaut ce code: =PartDate([Intervalle];[Date])mais je n'obtiens pas l'année actuelle.
Comment afficher donc, seulement l'année en cours?

[Jean-Philippe André]

Bonjour,
tu peux faire

Code :

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

=Année(Maintenant())

ou en VBA

Code :

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

Year(Now())

[mikeGo20]

Ou encore ...

Code :

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

1
2
 
=Format(Date();"yyyy")

C'est pas le choix qui manque ....

[mawelle]

Merci beaucoup!!
J'ai fait la même chose pour les mois, mais j'aimerais les obtenir en toutes lettres. J'ai trouvé cette réponse sur la FAQ mais je ne sais pas sur quel évènement de mon contrôle la placer.

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub test() 
 
Dim LaDate As Date 
LaDate = Now() 
 
MsgBox Format(LaDate, "mmmm")  
 
 
End Sub

[Jean-Philippe André]

je suppose que tu veux l'afficher à l'ouverture du formulaire ?
=>évènement "sur ouverture"

[mawelle]

non, je voudrais l'afficher dans une zone de texte.
J'ai utilisé =Format(Date(),"mmmm") pour valeur par défaut, mais l'expression n'est pas bonne.

[Jean-Philippe André]

avec 3 m, ca devrait suffire
l'aide te donnera la liste des possibilités de format pour les dates.

[mawelle]

J'ai inscrit ceci: =Format(Date(),"mmm") pour valeur par défaut mais il m'indique toujours que l'expression n'est pas correcte!

Merci de votre aide.

[mikeGo20]

J'ai inscrit ceci: =Format(Date(),"mmm")

Si inscrit dans la propriété Valeur par défaut du champ
il faut écrire

Code :

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

=Format(Date();"mmm")

ou

Code :

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

=Mois(Date())

[mawelle]

Merci à vous, c'est chouette ça marche!!
Par contre, j'ai mis 4m afin d'avoir le mois en entier!


Et aussi grand merci pour les Cours Excel