Calcul nb de jours restant

[C@thy]

Bonjour le forum,
un truc me tracasse et m'empêche de dormir :
je cherche a calculer le nb de jours restant sur l'année
par ex. J'ouvre un doc Word et a l'ouverture un message affiche le nb de jours restant jusqu'au 31-12-2010 ça c'est pas trop dur...
autre possibilié : a l'ouverture de mon doc Word je choisis un repertoire correspondant au num de semaine (de 1 à 52) puis un sous-rep lundi à vendredi dans l'arborescence de mon disque dur,
ex. Je sélectionne C:/xyz/51/mardi
et un message affiche le nb de jours restant

Edit: j'ai oublié de préciser : l'année est l'année en cours

Un grand Merci pour votre aide.
Bises et bonne journée

C@thy

 

[James007]

Re : Calcul nb de jours restant

Bonjour C@thy ... 🙂 ( faut dormir un peu ...)

D'abord le plus facile :

Sub test()
MsgBox DateDiff("d", [COLOR="red"]Date[/COLOR], DateSerial(Year(Date), 12, 31))
End Sub

Ensuite, il faudra remplacer Date par la fonction DateSerial(Year(Date),m,d) dans laquelle m et d sont tes deux variables mois et jour extraites par les fonctions qui lisent ton arborescence ...

A +
🙂

 

[C@thy]

Re : Calcul nb de jours restant

Bonjour C@thy ... 🙂 ( faut dormir un peu ...)

Oui t'as raison, mais ça me tracasse...

Hello, James Merci pour ta réponse, le plus facile fonctionne bien😉

Je ne savais pas qu'en VBA on pouvait utiliser la fonction Datediff!!

C'est génial, ici j'en apprends tous les jours!!

Bises et bonne journée

C@thy

 

[C@thy]

Re : Calcul nb de jours restant

Le plus difficile ne marche pas, car je n'ai pas les variables mois et jour,
j'ai seulement un n° de semaine et un jour sous la forme teste "jjjj"😕

il faudrait transformer C:\xxx\47\jeudi en
25/11/2010 (tiens, c'était ma fête!)
(avec une fonction)

lundi de la semaine x = telle date
mercredi de la semaine x = telle date...

Je savais bien que c'était dur!!!😱
Pour 2010 c'est facile, c'est l'année en cours, donc Year(Date)...

Quelqu'un aurait une piste?

Merci et bonne soirée

C@thy

 

[Softmama]

Re : Calcul nb de jours restant

Bonjour C@thy, James007

Tu peux essayer cette fonction personnalisée DonneDate qui prend comme critère le jour en chaine de caractère (lundi, mardi... dimanche) et le numéro de semaine comme entier

Function DonneDate(Jour As String, Sem As Integer)
Tableau = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
For T = 0 To 6
    If Jour = Tableau(T) Then Jour = T
Next
DonneDate = Format(DateSerial(Year(Now), 1, 1) + Sem * 7 + Jour - Weekday(DateSerial(Year(Now), 1, 1), vbMonday) + 1, "ddd dd mmm yyyy")
End Function

Pour reprendre ton exemple, cet appel à la fonction

Sub Test()
 MsgBox DonneDate("jeudi", 47)
End Sub

renvoie "jeudi 25 nov. 2010", à adapter selon ton besoin.

 

[YANN-56]

Re : Calcul nb de jours restant

Bonsoir Catherine, aux participants, et à ceux qui passeront par ici,

Juste un p'tit truc joint pour voir, et à adapter suivant tes besoins.
(On peut compter aussi le nombre de Week-End, ou de semaines entières)

Amicalement

Yann

P.S.: Un truc marrant aussi dans le genre "ANNIVERSAIRES"

 

[C@thy]

Re : Calcul nb de jours restant

Merci vous deux vous êtes des chouchous.

Ce sont des super cadeaux que j'apprécie beaucoup.🙂

Au passage, je te félécite, Yves, pour le cap des 1000 posts que tu viens de franchir
te voilà accro, maintenant!!!😉

Bises à tous et bonne journée,

C@thy