Microsoft 365 Boite de dialogue suivant date et récupération de données

[chnico80]

Bonjour à tous,

nouveau sur le forum, je viens vous solliciter pour résoudre un problème.

J'aimerais pouvoir avoir une boite de dialogue qui s'affiche à l'ouverture du fichier quand la date de diffusion est égale à la date du jour.
Dans cette boite de dialogue, j'aimerais également récupérer le N° d'affaire ainsi que le nom d'affaire associé.
Dans le fichier ci joint, par exemple, le 30/03/2023 à l'ouverture du fichier, que j'ai un message me disant :

Diffusion du jour :
789123 test2
124582 test3


J'ai essayé via VBA mais je ne m'y connais pas assez.

Par avance merci

 

[chnico80]

Option Explicit
Private Sub Workbook_Open()
   Dim TD(), L As Long, TM() As String, LM As Long
   TD = Feuil1.ListObjects(1).DataBodyRange.Value
   ReDim TM(0 To 1): TM(0) = "Diffusion du jour :": TM(1) = "— (aucune)"
   For L = 1 To UBound(TD)
      If TD(L, 5) = Date Then
         LM = LM + 1: ReDim Preserve TM(0 To LM)
         TM(LM) = "— " & TD(L, 1) & " " & TD(L, 2): End If: Next L
   If LM > 0 Then MsgBox Join(TM, vbLf), vbInformation, Me.Name
   End Sub

Je comprend mieux, merci beaucoup c'est parfait