Test présence dossiers

cbtitalia · 1 Février 2010

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 · 1 Février 2010

Re : Test présence dossiers

Bonjour cbtitalia,

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

Code:

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 · 1 Février 2010

Re : Test présence dossiers

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

Test présence dossiers

cbtitalia

XLDnaute Nouveau

job75

XLDnaute Barbatruc

cbtitalia

XLDnaute Nouveau

Discussions similaires