Discussion :

[Nimitz-4145]

Bonjour à tous,

Je gère un fichier de travail sur une ressource réseau.
Chacun rajoute une ligne de description pour toute nouvelle demande avec en colonne A le lien hypertexte qui point vers le fichier à ouvrir.
Jusque là, rien d'extraordinaire
Si ce n'est que depuis quelques temps et pour certains utilisateurs seulement, le lien est effectif le jour même mais ne fonctionne plus le lendemain.
le lien s'est transformé de h:\repertoire\fichiers 2014\demande récente.xls en ../../../fichiers%202014/demande%20récente.xls

Passage d'absolu en relatif sans explication.

Si quelqu'un a une piste, je prends
Merci

[Philippe Tulliez]

Bonjour,
Le lien Hypertexte est insérer avec le clic droit Insérer Lien ou en utilisant la formule LIEN_HYPERTEXTE ?
En utilisant la formule qui bien entendu peut faire référence à une cellule contenant ce lien, tu n'auras pas de problème

[Nimitz-4145]

Bonjour,
Le lien Hypertexte est insérer avec le clic droit Insérer Lien ou en utilisant la formule LIEN_HYPERTEXTE ?
En utilisant la formule qui bien entendu peut faire référence à une cellule contenant ce lien, tu n'auras pas de problème

L'insertion de toutes les données de la ligne se fait via du VBA.Le lien est inséré par la commande :

Code :

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

ActiveSheet.Hyperlinks.Add Range("A32"), NomFichier

[Philippe Tulliez]

Bonjour,
Essaye avec ce code qui utilise la formule LIEN_HYPERTEXTE

Code :

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

1
2
3
4
5
6
Const myFormula As String = "=HYPERLINK(<Address>)"
Dim LinkAddr As String
LinkAddr = Chr(34) & "C:\Users\myName\Desktop\_mso Excel\PivotTable.xlsx#'Base 1'!A1" & Chr(34)
With ActiveSheet
.Range("E2").Formula = Replace(myFormula, "<Address>", LinkAddr)
End With