Determiner si un fichier existe (case sensitive)

Bonjour je cherche à déterminer si le nom d'un fichier que j'ai rentré dans une cellule est présent dans un répertoire donné. Si c'est le cas je colorie ma cellule.
Pour cela j'utilise la macro suivante :

Code:

---

1 2 3 4 5 6

For Each C In Selection If Dir(Chemin & C.Value) <> "" Then C.Interior.ColorIndex = 45 End If Next C

---

Le problème c'est que la fonction Dir ne semble pas être sensible à la casse.
Si ma cellule contient aaa.txt et que dans le dossier j'ai AAA.txt le fichier va être reconnu comme existant or je ne veux pas.

J'ai chercher s'il n'y avait pas moyen, je n'ai rien trouvé.

J'ai bien pensé à récuper la liste du dossier dans un tableau et ensuite faire la comparaison mais je voudrait savoir s'il existait une solution plus élégante.

Merci à vous

Bonjour,
Sauf erreur de ma part, effectivement je crois que la fonction Dir, n'est pas sensible à la casse mais vous pouvez utiliser en plus, la fonction StrComp en passant à l'argument nommé StrComp la valeur vbBinaryCompare

Exemple renverra 0, si l'orthographe et la casse sont correctes

Code:

---

StrComp("TOTo", "TOTO", vbBinaryCompare)

---

Hello effectivement la solution qui m'a été proposé sur le forum excel download est la bonne à savoir remplace le test par :

Code:

---

If Dir(Chemin & C.Value) = C.Value Then

---

Et du coup ca marche impeccable