Vérifier l'existence d'un fichier

[jordi]

Permet de vérifier à chaque nom de fichier entré dans des cellules corresond bien un fichier.

Code: Select all

Sub CheckFiles()
Dim selectedCell As Range
Const strPath = "D:\temp\"
For Each selectedCell In Selection
    If Dir(strPath & selectedCell.Value) = "" Then
        Debug.Print selectedCell.Row
    End If
Next selectedCell
End Sub