Test présence dossiers

[cbtitalia]

Bonjour,

J'ai un fichier excel avec une première colonne qui contient différent valeurs de nom de dossiers.

J'ai sous d:\test\ différents dossiers qui peuvent correspondre à ma colonne excel.

Je souhaiterais récupérer dans ma seconde colonne l'existence ou non du nom du dossier cité dans excel.

Merci

 

[job75]

Re : Test présence dossiers

Bonjour cbtitalia,

Par formule je ne vois pas, mais en VBA cette macro :

Sub TestDossiers()
Dim d As String, cel As Range
On Error Resume Next
d = CurDir 'dossier en cours
For Each cel In Range("A2", Range("A65536").End(xlUp)) 'liste des chemin d'accès des dossiers à partir de A2
  ChDir cel 'essaie de changer le dossier en cours
  cel.Offset(, 1) = IIf(Err, "NON", "OUI") 'en colonne B
  Err = 0
Next
ChDir d 'restitue le dossier en cours
End Sub

A+

 

[cbtitalia]

Re : Test présence dossiers

C'est génial... Merci beaucoup.