erreur d'execution type 13
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 :
Savez vous pourquoi ?
Merci d'avance
Voici le code complet
Code:
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 |
