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