Message alerte sur date

Bonjour
J’ai un fichier qui comporte plusieurs feuille et je souhaite avoir un message d’alerte dés l’ouverture du fichier
J’ai écrit du code dans thisWorkbook, mais le message d’alerte ne s’affiche que lorsque j’ouvre la feuille concernée
Merci de votre aide
Ci joint code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Workbook_Open()   Dim Finvente As Range   For Each Finvente In ActiveSheet.Range("Finvente")   Valeur = Cells(Finvente.Row, 8)   If Finvente = Date Then   MsgBox "Le depositaire " & Valeur & " est en fin de vente", vbCritical     Else   End If   Next   End Sub

---

Ton erreur vient de là, tu ne boucles que sur la feuille active:

Citation:

---

Envoyé par Ladypalace

For Each Finvente In ActiveSheet.Range("Finvente")

---

2 solutions :

Activer la feuille dès l'ouverture par :

Code:

---

ThisWorkbook.Sheets(X).Activate

---

ou

Utiliser ta boucle comme suit :

Code:

---

For Each Finvente In ThisWorkbook.Sheets(X).Range("Finvente")

---

Merci pour ta reponse
le X correspond au nom de la feuille qui contient l'alerte

Le X correspond au choix soit :
- au nom de la feuille, dans ce cas n'oublie pas les double quote (guillemets : " ) et fais attention à ce que ce soit bien le nom de la feuille et pas le titre
- au numéro de ta feuille