Discussion :

[Ladypalace]

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 :

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
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

[jeanmidudu]

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

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

2 solutions :

Activer la feuille dès l'ouverture par :

Code :

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

ThisWorkbook.Sheets(X).Activate

ou

Utiliser ta boucle comme suit :

Code :

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

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

[Ladypalace]

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

[jeanmidudu]

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