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

Guest

job75

XLDnaute Barbatruc

cbtitalia

Guest

Discussions similaires

Test présence dossiers

cbtitalia

Guest

job75

XLDnaute Barbatruc

cbtitalia

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency