Discussion :

[Lonicpp]

Hello !

J'ai un tableau excel qui m'ennuie depuis le milieu de journée, je me décide après 36 tests à venir ici pour poser ma question.

Le tableau se présente sous cette forme :

Nom	Lien
toto.txt	=LIEN_HYPERTEXTE(CONCATENER("C:\";A2);"LIEN")
tata.pdf	=LIEN_HYPERTEXTE(CONCATENER("C:\";A3);"LIEN")

Ce qui m'affiche le résultat escomté, à savoir le lien vers le fichier en question.

Cependant, je voudrais que la cellule change de couleur, si le fichier n'existe pas... Et là ça bloque !

J'ai commencé par créer une cellule supplémentaire (pour tester) et pour retourner "true" ou "false"... Sans succès.
Je vous donne le code que j'avais testé :

Code :

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

1
2
3
4
Function ExisteFichier(nomfic As String) As Boolean
    Application.Volatile
    ExisteFichier = (Dir("nomfic") <> "")
End Function

Et ma case C2 contenait "ExisteFichier(A2)".

Sauf que le résultat était "False" que le fichier existe ou non.
L'idée était ensuite de passer par la mise en forme conditionnelle pour avoir les couleurs, mais je pense que ça doit être possible de colorer directement le lien sans retourner true et false, sans créer de cellule supplémentaire.. je me trompe ?

Merci d'éclairer ma lanterne, et si je ne suis pas clair n'hésitez pas à me demander d'autres précisions.

[unparia]

Bonjour
La fonction Dir exige la spécification du chemin complet (pas uniquement celle du nom de fichier).

[joe.levrai]

Bonjour,

ta variable nomfic contient une chaine de caractère .... mais si tu la mets entre guillemets alors cette variable devient elle-même une chaine de caractère

de plus, il va falloir lui indiquer le chemin d'accès complet ... si tous les fichiers sont au même endroit, tu peux créer une constante dans ta fonction

Code :

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

1
2
3
4
5
Function ExisteFichier(nomfic As String) As Boolean
Const MonChemin As String = "C:\Users\toto\MonDossier\"
    Application.Volatile
    ExisteFichier = Dir(MonChemin & nomfic) <> ""
End Function