Tester existence de plusieurs repertoires sur Excel

Bonjour à tous.

Je rencontre un souci sur excel, en effet je souhaiterai tester l'existence d'une liste de repertoire en cononne A (plus de 700 dossiers à tester) dans un dossier.

Existe il donc un programme capable de tester de manière automatique l'existence de tous ces dossiers ? J'ai trouvé sur le net des programme pour tester un dossier à la fois, mais j'aimerai un programme capable de tester les 700 à la fois. Est ce possible ?

Désolé si ma question parait stupide, je suis novice en VBA.

Merci pour vos retours. :)

bonjour,

une proposition (à adapter)

Sub aargh()
    With Sheets("sheet1") '<-à adapter feuille contenant la liste des dossiers
        repbase = "d:\downloads" '<-à adapter répertoire contenant les dossiers
        dl = .Cells(Rows.Count, 1).End(xlUp).Row 'dernière ligne contenant un dossier
        For i = 2 To dl 'de la première à la dernière ligne contenant un dossier
            If Dir(repbase & "\" & .Cells(i, 1), vbDirectory) <> "" Then .Cells(i, 2) = "trouvé" Else .Cells(i, 2) = "pas trouvé"
        Next i
    End With
End Sub

Bonjour,

Les 700 à la fois, non.
Un par un, en boucle, oui.

Le code suivant, A ADAPTER ce qui doit l'être (cf. commentaires)

Sub filaliao()
Dim ligne As Long, prem_ligne As Long, dern_ligne As Long, exist As Boolean

    Const COLONNE As String = "A"   'A ADAPTER : le nom de la colonne stockant les noms des dossiers
    With Sheets("Feuil1")           'A ADAPTER : le nom de la feuille concernée
        prem_ligne = 2              'A ADAPTER : le numéro de la première ligne

        dern_ligne = .Range(COLONNE & .Rows.Count).End(xlUp).Row
        For ligne = prem_ligne To dern_ligne
            exist = Dir(.Range("A" & ligne).Value, vbDirectory) <> ""
            If Not exist Then .Range("A" & ligne).Interior.ColorIndex = 3
        Next
    End With
End Sub

Merci pour vos retours !

Je test de suite vos soluions !