Discussion :

[sabrine1311]

Bonjour,
J'ai réalisé une fonction qui doit calculer la date d'une invitation à programmer chaque premier mardi ou premier jeudi à compter à partir de la date actuelle.
Maintenant je bloque pour trouver une fonction qui doit calculer le dernier mardu ou jeudi avant une date saisie (variable à chaque sasie).

Ces fonctions doivent etre utilisées dans une macro qui envoie automatiquement les invitations à la date correspondante.
Voici la fonction pour calculer le premier mardi ou jeudi de la date actuelle.

PremMardi_de_laDate_douverture = Now - ((Now - 4) Mod 7) + 7
Premjeudi_de_laDate_douverture = Now - ((Now - 6) Mod 7) + 7

If PremMardi_de_laDate_douverture < Premjeudi_de_laDate_douverture Then
Date_BnB = PremMardi_de_laDate_douverture
Else
Date_BnB = Premjeudi_de_laDate_douverture
Merci par avance de votre aide
Bien cordialement,
Sabrine

[Pol63]

.DayOfWeek sur une date vous donnera le jour de la semaine
c'est une enum qu'on peut convertir en integer pour avoir le numéro (! dimanche = 0)

[sabrine1311]

Bonjour,

J' ai trouvé un post qui date depuis un an, une formule qui calcule les prochains mardi ou jeudi de la date saisie en I2:

Ma date est en I2
=SI(ET(JOURSEM(I2)<6;JOURSEM(I2)>2);I2+(3-JOURSEM(I2));SI(JOURSEM(I2)>5;I2+(6-JOURSEM(I2));I2+(-1-JOURSEM(I2))))


En effet, je dois réaliser une macro ou trouver une formule qui calcule le dernier jeudi ou mardi à partir d'une date entréé ou dans une cellule ert non pas le prochain jeudi ou mardi.

Auriez vous une idéé SVP ?

[Edit]
Je viens juste de voir votre réponse.
Je vais essayer avec cette fonction.

Merci de votre aide

Je n'ai pas reussi à comprendre comment elle fonctionne cette fonction DayOfWeek, je suis débutante en VB.
pourriez-vous SVP me donner plus de details?
Merci infiniment
Sabrine

[idontgetacp]

Je sais pas si ca t'aide mais

Code :

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

1
2
3
4
5
6
7
8
module Example
   Public Sub Main()
      Dim dateValue As Date = #6/11/2008#
      Console.WriteLine(dateValue.DayOfWeek)           
   End Sub 
End Module 
' Ca renvoit: 
'       3.

[Pol63]

une macro

ici c'est le forum vb.net qui n'a rien à voir avec vba
il n'y a pas de macro en vb.net