Discussion :

[astragor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[astragor]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et du coup ca marche impeccable