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 le If Dt > 7 Then _
savez vous pourquoi ?
 
voici le code
 
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

Je ne sais plus ce qu'est le type Range mais à mon avis c'est pas un entier donc tu peux pas le comparer direct à un nombre.

Hello
 
Tu te prends un peu la tete pour rien...
Pas besoin de déclarer des varibales dont on a pas besoin.
 
Regarde ce bout de code :