Periode : Annee

3 réponses

Ouille

06/05/2004 à 22:41

Salut tout le monde

Dans un Label j'aimerai recuperer la periode de l'annee en cours

Ex (Non contractuel)

Si nous sommes en 2004, la periode serai

Periode du Lundi 01 Janvier 2004 au Mardi 31 Decembre 200

Merci, d'avance, Ouille

3 réponses

Philippe.R

06/05/2004 à 23:04

Bonsoir,
Avec un truc ceci ?

Sub laperiode()
Dim laper As String, an As String
an = Year(Date)
laper = "Période du 01 Janvier " & an & " au 31 Décembre " & an
MsgBox laper
End Sub

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Ouille" a écrit dans le message de
news:

Salut tout le monde,

Dans un Label j'aimerai recuperer la periode de l'annee en cours:

Ex (Non contractuel) :

Si nous sommes en 2004, la periode serait

Periode du Lundi 01 Janvier 2004 au Mardi 31 Decembre 2004

Merci, d'avance, Ouille

Jean-François Aubert

06/05/2004 à 23:13

Salut Ouille,

Même genre que Philippe, mais un peu plus modulable.

Sub yy()
année = 2004
'ou
'année = Year(Date)
mois1 = 1
mois2 = 12
jour1 = 1
jour2 = 31
date1 = Format(DateSerial(année, mois1, jour1), "dddd dd mmmm yyyy")
date2 = Format(DateSerial(année, mois2, jour2), "dddd dd mmmm yyyy")
MsgBox "Période du " & date1 & " au " & date2
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}

"Ouille" a écrit dans le message de
news:

Salut tout le monde,

Dans un Label j'aimerai recuperer la periode de l'annee en cours:

Ex (Non contractuel) :

Si nous sommes en 2004, la periode serait

Periode du Lundi 01 Janvier 2004 au Mardi 31 Decembre 2004

Merci, d'avance, Ouille

06/05/2004 à 23:48

bonsoir,
Sub Ouille()
Message = "Période du " & Format(DateSerial(Year(Now), 1, 1), "dddd d mmmm
yyyy") & " au " & Format(DateSerial(Year(Now) + 1, 1, 0), "dddd d mmmm
yyyy")
MsgBox Message
'---------exemple d'utilisation dans un UserForm
'--------- Me.Label1.text=message
End Sub
@+

"Ouille" a écrit dans le message de
news:

Salut tout le monde,

Dans un Label j'aimerai recuperer la periode de l'annee en cours:

Ex (Non contractuel) :

Si nous sommes en 2004, la periode serait

Periode du Lundi 01 Janvier 2004 au Mardi 31 Decembre 2004

Merci, d'avance, Ouille

Periode : Annee

3 réponses

Veuillez sélectionner un problème