Discussion :

[melouille56]

Bonsoir à tous
Voici mon problème.
J'ai un fichier excel donc chacune des cellules de la colonne 1 des 50 premières lignes renvoie à des fichiers différents.
Ces 50 fichiers sont tous sur un serveur, dans des classeurs, sous classeurs, sous sous classeurs, tellement que lorsque je vais dans les propriétés de l'hyperlien ou que je veux récupérer l'adresse par vba, le début de l'adresse est remplacé par "..\..\..\..\".
Du coup, lorsque je veux vérifier par macro si tous les liens mènent bien à un fichier excel, quand j'utilise la fonction

Code :

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

Dir(MaCellule.Hyperlinks(1).Address)

, il me la renvoie vide. Pourtant, quand je clique avec la souris sur le lien, mon fichier s'ouvre bien.
Quelqu'un a-t-il une idée pour pallier à ce problème et récupérer l'adresse complète de l'hyperlien?
Merci pour votre aide!!!
Mél

[PMO2017]

Bonjour,

A tout hasard essayez avec

Code :

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

Dir(MaCellule.Hyperlinks(1).Name)

Cordialement.

PMO
Patrick Morange

[melouille56]

Merci Ptrick pour cette idée.
Je viens à l'instant de tester mais sans résultat.
Mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function VerifHyperlink(Cellule As Range) As Boolean

Dim Cible As String

If Cellule.Hyperlinks.count = 0 Then
    VerifHyperlink = False
    Exit Function
End If

'Extrait l'adresse du lien
Cible = Cellule.Hyperlinks(1).Name

If Dir(Cible) <> "" And Cible <> "" Then
    VerifHyperlink = True
    Else
    VerifHyperlink = False
End If
    
End Function

Il passe directement à Else lors du test If.
Je n'ai plus d'idée...
Helppp

[PMO2017]

Ce qui suit peut être n'importe quoi mais pourquoi ne pas essayer.

Si ce qui s'affiche dans la cellule Excel correspond à l'adresse du lien

Code :

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

Dir(MaCellule.Hyperlinks(1).TextToDisplay)

Bon courage.

PMO
Patrick Morange

[CodeFacile]

Bonjour,
La chaine "..\..\..\..\" ne signifie pas que le chemin est trop long pour excel .
Le problème vient du fait que le chemin est exprimé par rapport au path courant.
Tu peux faire des tests de création de lien hypertexte, via l'enregistreur de macros, avec des chemins plus court , le résultat est le même.
Le path par défaut est celui indiqué par le répertoire par défaut dans les options. Si tu ouvres un fichier via Excel , le path change; Si tu l'ouvres avec l'explorateur Windows ,il ne change pas. Quand tu crées ton lien hyper, il est calculé par rapport à ce path .

Tu peux récupérer le chemin du fichier via des fonctions dir , Application.DefaultFilePath , ActiveWorkbook.Path , worbooks(tonnomfichier).path.