Discussion :

[julien_verdier]

bonjour,

je possède un fichier qui recense tout un tas de symbole d'une base de données dans un emplacement bien précis sur un réseau (fichier entreprise) et lorsque que je clique sur une des 2 cellules F4 ou H4 par exemple cela m'ouvre le document en question.
Mon problème est que ma base n'est pas complète et je souhaiterai vérifier si les liens hypertextes de ces cellules sont ok ou non (en fonction de la présence ou pas du fichier source sur le réseau).

Je vous joint le fichier en pièce jointe.

En espérant avoir de l'aide je vous remercie déjà par avance.

Julien.

[Alex70]

Bonjour,

J'ai un fichier dans le même genre, personnellement notre technique est de faire un TREE sur les dossiers, et ensuite de faire le matching avec les liens du fichier Excel.

[kiki29]

Salut, voir avec FileExists dans Manipulation des fichiers en VBA ou avec dir(...) <>""

[joe.levrai]

Bonjour,

sans VBA je ne vois pas de solution à proposer me concernant


Si VBA : écrire une fonction personnalisée avec un paramètre qui reçoit l'adresse d'emplacement d'un fichier
la fonction test si le fichier existe via la fonction DIR()

la fonction renvoi ensuite un "EXISTE" ou "N'EXISTE PAS"

tu peux ensuite utiliser ta fonction dans Excel, par exemple en la plaçant dans une colonne juste à côté du nom de tes fichiers.

[julien_verdier]

Je précise je suis débutant en VBA donc je n'y pige pas grand chose a vrai dire....

[joe.levrai]

La question n'est pas de savoir si tu sais faire, c'est déjà de savoir si une proposition par VBA est possible dans ton projet

Si le VBA est rédhibitoire, on ne va pas commencer à dérouler les propositions

[Alex70]

De plus une question que je rajoute à celle de joe.levrai, est ce pour faire une grosse MAJ donc 1 fois / an ou est ce à faire de façon récurrente?

[julien_verdier]

pas de probleme pour le VBA et c'est à mettre à jour assez souvent car ajout sans cesse de nouveaux fichiers dans la base de donnees.

[joe.levrai]

Voici la fonction qui fait le travail

Code :

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

1
2
3
Function Lien_Valide(MonUrl As String) As Boolean
    Lien_Valide = Dir(MonUrl) <> ""
End Function

par exemple, tu as en A2 le chemin complet qui mène au document
en B2, tu mets

Code :

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

=Lien_Valide(A2)

si le document existe à cet emplacement, tu auras VRAI, sinon FAUX

Nomme ta colonne (en B1) "Fichier existant" par exemple

Si le chemin complet est éclaté en plusieurs cellules, tu peux les reconstituer
Si le chemin est éclaté entre A1 / B1 / C1 par exemple :

Code :

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

=Lien_Valide(A1&B1&C1)

Ici, on passe par une fonction qu'on doit écrire unitairement dans chaque cellule
Mais on pourrait très bien passer par une procédure qui vérifie tous les liens en même temps ... qu'on lie à un bouton par exemple
A chaque que tu appuies sur le bouton, ça met à jour l'état de validité de tes liens. Il suffira de convertir la Function en Sub, et de faire une boucle sur chaque élément

[julien_verdier]

ok, si j'ai bien compris je dois copier le code que tu m'as donné dans l'editeur de VB c'est bien cela?

[julien_verdier]

Je suis desolé mais je ne comprend pas je n'arrive pas a faire fonctionner ton code.
je dois etre

Dans le code que tu m'a écris dois je apporté des modifications (mettre mon chemin d'acces au fichier?)

merci encore pour ton aide.

[jerome.vaussenat]

Salut,

On va détailler.
Tu ouvres ton doc.
Pour aller rapidement dans l'éditeur VBA, "ALT" + "F11"
Là, si c'est nécessaire, tu insère un nouveau module : Menu Insertion Module.
Dans ce module, tu copie le code donné par joe.levrai.
Pour information, ce code est une fonction. Cela signifie que pour l'utiliser, tu vas procédé comme pour une formule. Comme pour la SOMME ou la MOYENNE.
Tu peux désormais fermer l'éditeur VBA.
Maintenant, tu te places dans ton tableau. Je vais supposer que les liens sont en Col A et que la vérification tu la veux a coté en colonne B et que la première ligne est la ligne 2
Dans la cellule B2 tu saisis =Lien_Valide(A2)
Tu valides avec Entrée. Et si tout va bien tu à un VRAI ou un FAUX qui t'indique que le lien est opérationnel ou pas.
Il te reste à recopier cette formule sur les autres lignes.

En espérant avoir été clair.

[joe.levrai]

Désolé pour le manque de SAV, je n'étais pas dispo



par contre, teste bien la fonction pour voir si on l'ajuste, elle est un brute là

voir si on doit la rendre volatile (je ne pense pas)
voir s'il faut exclure certains cas (si Url est vide par exemple)

[julien_verdier]

Merci a vous 2 jerome.vaussenat & joe.levrai
je teste cela demain au travail et je vous tiens au courant.
En tout ca, merci pour votre aide precieuse.
bonne soirée.

[julien_verdier]

re bonjour
je viens de tester vos opérations et apparemment cela fonctionne parfaitement.
Je vais essayer de faire quelques bidouilles pour essayer de l'adapter au mieux a mon fichier mais en tout cas merci bcp pour votre aide.

[julien_verdier]

Apres plusieurs essai finalement, cela fonctionne mais mon seul soucis c'est que partout ou j'ai un lien "faux", lorsque je le mets a jour sur le reseau je dois re rentrer dans la cellule pour la revalider, sinon cela ne se mets pas ajour tout seul :s est ce normal?
J'ai essayer de mettre "Application.Volatile" apres la def de la fonction mais cela ne fonctionne pas