XL 2019 Ouverture fenêtre lorsque on atteint une date

[candido57]

Bonjour,
Je voudrait avoir une alerte en ouvrant une fenêtre dès que l'on atteint une date.
En prenant en compte la date, la semaine et l'année.
Une petite macro ou autre.

Merci beaucoup

 

[vgendron]

Bonjour

une proposition en PJ

 

[candido57]

Bonjour,
Déjà merci, je voudrais savoir , c'est une macro ou une validation des données ?

 

[vgendron]

xlsM ==> Macro
elle est dans l'évènement workbook_Open

Suffit d'ouvrir pour le voir..

 

[candido57]

OK j'ai vu merci

 

[candido57]

Est ce que l'on peut prendre la date aujourd'hui, si elle est entre les 2 dates en colonne J et I, alors on ouvre une fenêtre alerte , sinon, on n'affiche pas.
Peut on la faire apparaitre cette fenêtre dans un autre onglet ? si possible une grande

 

[vgendron]

il te suffit de modifier le code..
if now>=range("J2") and now <range("I2") .......

 

[candido57]

Je voudrais savoir , la macro fonction lorsque on ouvre le fichier, mais je voudrais que la fenêtre s'ouvre si je tape une information en D2 car l'information peut changer si je saisie une autre information.
Mon fichier doit rester ouvrer.
Je ne veux pas avoir l'alerte lors de l'ouverture du fichier , mais lors je saisie dans une cellule
Peut on avoir une grande fenêtre et l'afficher dans un autre onglet Exp: "Base"
Que dois je modifier ci-dessous >> Macro modifier suivant mon fichier personnel

Private Sub Workbook_Open() >> Afficher la MsgBox uniquement

With Sheets("RECTO-VERSO") >> Saisir dans fichier "RECTO-VERSO" en D2

'If Now >= .Range("U2") Then
If Now >= Range("z2") And Now < Range("y2") Then
If .Range("X2") = "" Then
MsgBox "Transition Lait n°1 et Lait n°2"
.Range("X2") = "Transition Lait n°1 et Lait n°2" >> Pas besoin noter dans cellule X2

'ElseIf Now >= .Range("U3") Then
ElseIf Now >= Range("z3") And Now < Range("y3") Then
If .Range("X3") = "" Then
MsgBox "Transition Lait n°2 et Lait n°3"
.Range("X3") = "Transition Lait n°2 et Lait n°3"

'ElseIf Now >= .Range("U4") Then
ElseIf Now >= Range("z4") And Now < Range("y4") Then
If .Range("X4") = "" Then
MsgBox "Fini, Lait normal"
.Range("X4") = "Fini, Lait normal"
End If
End If
End If
End If
End With
End Sub