Discussion :

[Audeo]

Bonjour,
j'ai besoin de sortir un rapport chaque lundi apmidi
aujourd'hui je renseigne la date manuellement.
Je souhaiterai que mon report me trouve la date du lundi de la semaine prochaine si je le prépare dans la semaine un autre jour ou le jour même si je le prépare le lundi matin

je ne vois pas comme procéder si il faut du code, une requette, une macro, etc...

Merci de votre aide,

[ClaudeLELOUP]

Bonjour,

Voici une fonction qui devrait faire l'affaire :

Code :

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

1
2
3
4
5
6
7
8
Public Function ProchainLundi() As Date
  Dim i As Integer
  For i = 1 To 7
    If Format(Date + i, "dddd") = "lundi" Then
      ProchainLundi = Date + i
    End If
  Next i
End Function

[Audeo]

merci à toi.
l'ai copié dans un module
par contre, je ne vois pas comment je l'affecte ensuite à un champ dans une requete ou table ?

[ClaudeLELOUP]

Je ne sais pas trop non plus comment tu organises ton travail.

Essaie d'expliquer le contexte dans lequel tu veux connaître la date du prochain lundi.
Est-ce quand tu ouvres un formulaire ou la BdD.

Tu disais que tu introduisais cette date à la main, explique ce contexte.

[Audeo]

il s'agit d'une date de réunion affichée dans une page d'entête d'etat

[ClaudeLELOUP]

l'ai copié dans un module

OK

Comme ceci alors :




P.-S. Telle que, cette fonction te donnera 11/8/14 si tu édites ton état le lundi 4/8/14. Ai-je bien compris ta demande ?

[Audeo]

Hello,
ah d'accord,
j'ignorai que l'on pouvait appeler une procédure VBA directement comme ceci...
le meeting a lieu chaque lundi après midi,
j'ai maxi jusqu'au midi du lundi du jour même pour le préparer

Exemple, si je le prépare en avance, aujourd'hui (jeudi), il doit me sortir le lundi prochain 04/08/14
par contre, si je le prépare le lundi matin 04/08, il doit me garder la date du jour

[ClaudeLELOUP]

Bonjour,

Dans ce cas, voici le code de ton module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function ProchainLundi() As Date
  Dim i As Integer
  If OnEstLundiMatin = True Then ProchainLundi = Date
  Exit Function
  For i = 1 To 7
    If Format(Date + i, "dddd") = "lundi" Then
      ProchainLundi = Date + i
    End If
  Next i
End Function
 
Public Function OnEstLundiMatin() As Boolean
 If Format(Date, "dddd") = "lundi" And Time < #12:00:00 PM# Then OnEstLundiMatin = True
End Function

[Audeo]

merci à toi...
j'ai recopié ton nouveau code
mais éxecuté en mode pas à pas, il semble boucler jusqu'à la ligne 4 "Exit Function"
comme si, si on est pas Mardi il ne va pas chercher les autres jours par la boucle "For"

à moins que j'ai mal recopié...

[Audeo]

enfin je veux dire "Lundi"...
je m'embrouille dans les jours... desolé

[ClaudeLELOUP]

Ooops ! Désolé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function ProchainLundi() As Date
  Dim i As Integer
  If OnEstLundiMatin = True Then
      ProchainLundi = Date
      Exit Function
  End If
  For i = 1 To 7
    If Format(Date + i, "dddd") = "lundi" Then
      ProchainLundi = Date + i
    End If
  Next i
End Function
 
Public Function OnEstLundiMatin() As Boolean
 If Format(Date, "dddd") = "lundi" And Time < #12:00:00 PM# Then OnEstLundiMatin = True
End Function

Mes excuses pour cette distraction.

[Audeo]

no pb, tu es tout excusé...
Génial, ça marche correctement...

Mille mercis à toi ClaudeLELOUP pour ton aide
A bientôt