Vérifier l'existence fichiers image

Bonsoir,

Je dispose d'une liste d'adresse d'images que je voudrais en tester l'existence.

Au départ, j'ai par exemple des champs relatifs aux différentes références de l'image, un champs pour l'adresse de l'image et un champs pour le résultat qui devrait être renseigner automatiquement par la valeur image disponible ou image non disponible, et un champs pour renseigner sur taille de ladite image dans le cas de son existence.

J'ai pensé qu'une macro Excel est la solution:

Est ce que vous pouvez m'aider à résoudre ce problème, sachant que le nombre des enregistrements à vérifier est énorme (se comptent en plusieurs milliers).

Merci, et bonne soirée.

Bonjour,

si j'ai bien compris :

Sub parcourirFichiers()
    Dim lig As Long
    Application.ScreenUpdating = False
    Range([C2], Cells(Rows.Count, "C").End(xlUp)).ClearContents
    For lig = 2 To Cells(Rows.Count, "A").End(xlUp).Row
         If Dir(Cells(lig, "A")) = "" Then
            Cells(lig, "B") = "image non disponible"
         Else
            Cells(lig, "B") = "image disponible"
            Cells(lig, "C") = FileLen(Cells(lig, "A"))
         End If
    Next lig
    Application.ScreenUpdating = True
End Sub

eric

Bonjour,

Merci beaucoup eriic,

c'est bien ça ce que je cherche, Sauf que ça plante si les d'enregistrements sont assez nombreux.

(a signaler que certains peuvent exister dans un emplacement réseau éloigné).

Bonjour,

Si tu as des problèmes de liaisons je ne peux rien y faire.

eric

Merci infiniment Eriic.

A la prochaine.