Lien hypertext incomplet

[Chris57]

Bonjour à tous

j'ai trouvé cette macro pour afficher le lien hypertexte de cellules :

                    Dim HL As Hyperlink
                
                    For Each HL In Sheets("Calendrier des Rondes").Hyperlinks
                         HL.Range.Offset(0, 1) = HL.Address
                    Next

seulement voilà, si le classeur est situé sur le même DD que les classeurs cibles des liens, il ne m'affiche qu'une partie du lien :
...\RELEVES UP78\Rondes\Rondes du Lundi.xlsx

alors que le lien complet est :
\\carlis15\p_local\UP78\RELEVES UP78\Rondes\Rondes du Lundi.xlsx


Si je déplace le classeur dans un autre DD, il m'affiche le lien complet.
Y a t'il une solution car je ne pourrai pas mettre le classeur ailleurs !

 

[JNP]

Re : Lien hypertext incomplet

Bonjour le fil 🙂,
Peut-être comme ceci

For Each HL In Sheets("Calendrier des Rondes").Hyperlinks
If Left(HL.Address, 3) = "..." Then
HL.Range.Offset(0, 1) = ThisWorkbook.Path & "\" & HL.Address
Else
HL.Range.Offset(0, 1) = HL.Address
Next

Bonne journée 😎

 

[Chris57]

Re : Lien hypertext incomplet

Merci Masterdisco pour cette idée mais il n'est pas certains que tous les liens se trouverons sur le même DD.

JNP, ta procédure fonctionne, mais elle me donne le chemin du classeur actif et non celui du lien...


Dans mon classeur j'ai des trucs du genre :

__________LIEN A CLIQUER__________________________________CONTENU DU LIEN
__________________________________________________________________________
Ronde Gaz______________________________]____../RELEVES UP78/Rondes/Rondes du Lundi.xlsx
______________________________________]
__________________________________________________________________________
Relever Compteur gaz chaudière aux 70 et 80__]____../RELEVES UP78/Rondes/Rondes du Mercredi.xlsx
______________________________________]
__________________________________________________________________________


Et il faudrait que j'ai le chemin complet du lien c'est à dire :
\\carlis15\p_local\UP78\RELEVES UP78\Rondes\Rondes du Lundi.xlsx
et pas seulement ça :
../RELEVES UP78/Rondes/Rondes du Lundi.xlsx

 

[JNP]

Re : Lien hypertext incomplet

Re 🙂,
Le but, c'est de croiser le Path et le lien incomplet...
Où se situe ton fichier par rapport aux liens ?
Bonne soirée 😎

 

[Chris57]

Re : Lien hypertext incomplet

il est sur le même DD dans un dossier voisin. Mais il y aura des liens vers d'autres DD également

 

[JNP]

Re : Lien hypertext incomplet

Re 🙂,
Si je ne me trompe pas, quand le fichier est sur un DD ou serveur différent, le lien est entier. Si le fichier est sur le même serveur, il remonte jusqu'au dossier parent commun et donne le chemin descendant. Avec le chemin du fichier, tu as donc tout pour construire systématiquement le chemin complet.
Le tout est de travailler sur les strings afin de concaténer correctement le chemin.
Pour pouvoir l'écrire correctement, il faudrait avoir un certain nombre d'exemple des différents chemins fournis, croisés avec le Path.
A + 😎

 

[Chris57]

Re : Lien hypertext incomplet

Si je ne me trompe pas, quand le fichier est sur un DD ou serveur différent, le lien est entier. Si le fichier est sur le même serveur, il remonte jusqu'au dossier parent commun et donne le chemin descendant. Avec le chemin du fichier, tu as donc tout pour construire systématiquement le chemin complet.

Effectivement c'est ce que j'ai dis dans mon premier post : si le classeur est situé sur le même DD que les classeurs cibles des liens, il ne m'affiche qu'une partie du lien :
...\RELEVES UP78\Rondes\Rondes du Lundi.xlsx

Là je suis à la maison, dés que je suis au boulot je donne quelques exemples.