fonction pour tester lien hypertexte (excel) Résolu/Fermé

Question

Bonjour, 

j'ai mis en place la fonction LIEN_HYPERTEXTE avec la concaténation et ça donne ça
=LIEN_HYPERTEXTE($T$4&F8&"\"&D8&C8&"_"&K8&TEXTE(H8;"jjmmaa")&".pdf";K8)
il s'agit d'une base de données avec des numéros de documents (C8), des indices de révision (D8), des noms de fournisseurs (F8), une date de réception de l'accusé de réception (H8) et la réponse de l'AR : Accepté, accepté avec commentaire ou Refusé (K8).
voici ce que ça donne sur un exemple : 
C:\Users	hony\Desktop\SOCIETEBIDULE\A8230835_A140610.pdf
et ainsi sur ma colonne L j'ai immédiatement les AR en liens hypertexte sans aller les pointer.

maintenant voici ma question. existe-t-il une fonction ou formule à intégrer pour faire apparaître si oui ou non le fichier est bien là ou non ?
là actuellement il n'y a qu'en cliquant sur chaque ligne de la colonne L que je sais si le fichier est bien présent or il faudrait le savoir sans avoir à cliquer

merci à vous

Configuration: Windows 7 / Firefox 3.6.12

Utilisateur anonyme · Accepted Answer

Bonsoir

J'ai eu un problème un peu similaire, je l'avais résolu avec une macro qui reconfigure les liens hypertexte.
Si le fichier est bien présent le texte d'appel du lien hypertexte passe en bleu souligné. Sinon il y a erreur le texte reste en couleur noire.
Je ne sais pas si c'est vraiement ce que tu cherchais.

Cordialement

agi67

anthony · Answer

là il faudrait plutôt des messages du genre "fichier trouvé" quand le lien hypertexte est bien présent et "fichier absent" lorsque le fichier de destination n'y est pas.

car je souhaite développer la fonction lien hypertexte sur autre chose.
on reçoit des listes de livraison de produits ayant une référence, un fournisseur et un numéro de lot. d'un autre côté on reçoit des procès verbaux pour chaque produit.
la personne prend la liste de livraison et va voir dnas le dossier si elle a bien un pv pour ce produit. si elel l'a elle passe à la ligne suivante, si il est absent elle le réclame. bref y a 4 pages A4 et donc ça prend du temps et pour peu d'intérêt pour elle.

mon but serait d'avoir la liste de livraison sous excel et avec la fonction lien hypertexte elle va chercher le pv pour chaque ligne.
du coup faut savoir en un coup d'oeil où sont les pv manquants sans avoir à cliquer

eriiic · Answer

Bonjour tout le monde,

Agi67 répondait au problème non ? Le style d'affichage n'est que la forme...

Sinon tu peux te faire une fonction personnalisée :
Function ExisteFichier(nomfic As String) As Boolean
    ExisteFichier = (Dir(nomfic) <> "")
End Function
retourne VRAI si le fichier existe, que tu peux tester pour afficher ce que tu veux.

eric

anthony · Answer

oui en fait Agi67 avait la solution. j'avais en tête pour filtrer sur la colonne avec absent ou présent pour faire ressortir les manquants.

question idiote pour les pro mais j'en fais quoi de la fonction ?
je dois al modifier à quel niveau et vu qu'il n'y a pas SUB ce n'est pas uen macro donc je la colle où ?

gbinforme · Answer

bonjour

la fonction ne se met pas à jour automatiquement ...y a un moyen d'y remédier ?


Oui il te suffit de rajouter cette ligne dans la fonction :

Application.volatile

Tu peux d'ailleurs te servir de la fonction d'Éric que je salue, dans une mise en forme conditionnelle  en t'évitant ainsi une colonne avec une formule ainsi :

=NON(ExisteFichier(A1))

anthony · Answer

effectivement l'idée de la mise en forme conditionnelle est ne bonne idée pour gagner une colonne vu que mon tableau croisé dyanique ne fonctionne plus avec cette colonne supplémentaire.

j'ai rajouté la ligne. je suis allé modifié une lettre de mon fichier dans le repertoire mais rien ne s'est passé dans excel, j'ai toujours "ok" mais en cliquant dessus je n'ai évidemment aucun fichier.
y a-t-il un temps de rafra^chissement avec cette ligne ?

anthony · Answer

Function ExisteFichier(nomfic As String) As Boolean
    Application.Volatile
    ExisteFichier = (Dir(nomfic) <> "")
End Function

voici ce que j'ai écrit et en fait la différence c'est que le résultat change dès que je fais F9 si j'ai touché au nom du fichier en hyperlien alors que ça ne bouge pas si j'enlève application.volatile

anthony · Answer

Bon en fait j'ai fait le formatage conditionnel et ça résoud mon problème vu que la réponse du formatage est immédiate par rapport à la colonne qui contient la formule.

j'ai mis cellule de couleur rouge pour la condition =NON(ExisteFichier(A1))
et dès que je change quelque chose sur mon fichier ça bascule en rouge donc nickel.
je vais voir maintenant pour créer un filtre sur la couleur et pas sur le contenu comme je voulais faire.

merci à vous

Fonction pour tester lien hypertexte (excel)

8 réponses