Bonjour,

je veux qu'à l'ouverture d'un classeur, si la valeur d'une cellule de la colonne F est superieur à 7 , un pop up d'avertissement s'affiche

dans le code suivant, j'ai une erreur d'execution type 13 sur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
If Dt > 7 Then _
Savez vous pourquoi ?

Merci d'avance

Voici le code complet

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
Private Sub workbook_open() 
Dim Dt As Range 
 
Dim Ws As Worksheet 
Set Ws = Worksheets("feuil1" ) 
 For Each Dt In Ws.Range("F4:F" & Ws.Range("f65536" ).End(xlUp).Row) 
 
      If Dt > 7 Then _ 
      MsgBox "Le dossier est manquant pour " & Dt.Offset(0, -4) & " " & " , " & _ 
      Dt & " ", _ 
      vbExclamation, " attention " 
 
Next Dt 
 
End Sub