Discussion :

[ericdev67]

Bonjour,

J'ai un classeur qui des noms. J'ai créé des liens hypertextes sous la forme :

Code :

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

"C:/" & B2 & ".pdf";"Lien"

= je prends le nom contenu dans la cellule B2 qui renvoie vers un fichier .pdf correspondant au Nom.

Le souci, c'est que le mot "Lien" apparait dans chaque cellule, même si le fichier .pdf n'existe pas.....

Je suis allé sur le forum et j'ai vu le code de SilkyRoad "vérifier si lien hypertexte existe". En fait je souhaitais savoir si je pouvais éviter de passer par le VBA en mettant une formule du style : "SI pas de fichier .pdf mettre vide et SI fichier existe, mettre le lien"

Pour l'instant j'en suis à "SI(.........;"";"c:/" & B2 & ".pdf")

Il me manque l'inspiration pour les petits points....

Une idée ?

Merci,
A+

[ericdev67]

Bon,

Apparemment, il n'existe pas de "formule magique", je vais donc utiliser le code de SilkyRoad.

Merci,

A+ pour de prochaines aventures

[dailz]

Bonjour,

je dois réaliser une maco qui détécte touts les liens hypertextes non valide d'un les 2 colonnes M et N.
et de colorier les cases des liens non valide en rouge par exmple.
cette macro s'éxécute ,elle me colori les cases des liens hypertextes non valide et meme ceux qui sont valdies..besoin d'aide


Sub ExtractionLiensHypertextes()
Dim Cell As Range
Dim Ligne As Integer

'cible = Cells.Hyperlinks(1).Address
Set fso = CreateObject("Scripting.FileSystemObject")
'Récupère le numéro de la dernière ligne non vide
Ligne = Columns(1).SpecialCells(xlCellTypeLastCell).Row
For Each Cell In Range("M1:N" & Ligne)
If Cell.Hyperlinks.Count <> 0 Then
If fso.FileExists(Cell.Address) = False Then

Cell.Interior.ColorIndex = 6
Else
Cell.Interior.ColorIndex = 10
End If
Else
Cell.Interior.ColorIndex = 0
End If
Next Cell
End Sub

[ericdev67]

Bonjour dailz,

Il te suffit d'utiliser le code de Silkyroad, avec

si le lien ne se déclenche pas, mettre en rouge.

Mais à ta place, je ferais une recherche de tous les fichiers (voir FAQ), le mettre dans une feuille dans ton classeur et ensuite mettre dans ta colonne M ou N, une formule du style =rechercheV(M1;feuilleresultats!A:B;2) feuilleresultat étant la feuille où tu as mis ta recherche des fichiers, Colonne A et B colonne où tu mets tes résultats. Si tu ne veux pas passer par ce type de formule, tu peux te faire aider par l'enregistreur de macro.

J'espère avoir pu un peu t'aider......En fait, lorsque je suis perdu, je vais sur la FAQ et je cherche des codes et/ou des idées de codes que j'essaye d'améliorer.....bon courage à toi.

A+ pour de nouvelles aventures

[air2050]

Bonjour,
Suite à vos réponses, sur le même thème je souhaiterai vérifier si dans une même colonne les liens hypertexte qui y figurent sont bien valides.
Le cas échéant colorier la cellule en rouge ?

Est ce indispensable de passer par une macro ? Une formule est elle possible ?
Merci pour votre aide !!