Discussion :

[olabarbe]

Bonjour, je me casse la tête avec excel en ce moment pour un problème très simple :
losque je créé un lien hypetexte dans une cellule, même si je saisi un chemin absolu excel me le transforme en lien relatif à l'enregistrement .
J'ai trouvé comment l'empécher de faire cette conversion (fichier>options>options avancées>Général>Options Web...>décocher "mettre à jour les liens lors de l'enregistrement"), mais cette solution ne fonctionne que sur le poste configuré ainsi, ce n'est pas donc ça qu'il me faut car d'autres personnes peuvent être amener à y mettre un lien hypertexte et casser tous mes chemin absolu...
Comment obliger excel à travailler avec des chemin absolu pour tous les utilisateurs de ce fichier?
Dois-je créer une macro ou bien existe-t'il solution plus simple?
Ensuite, est-il possible de convertir les liens relatifs existant en lien absolu?

Merci d'avance pour votre contribution!

PS: La raison de cette volonté de travailler en chemin absolu est que le fichier excel est archivé tous les ans dans un dossier archive, et que du coup aucun lien ne fonctionne puisque les fichiers pointés par les liens eux ne changent pas de répertoire.

[BlueMonkey]

Salut,

Une solution est d'utiliser la formule =LIEN_HYPERTEXTE(<chemin>[;<nom convivial>]) pour créer le lien.
Si la mise en forme est importante, il faudra probablement passer par une colonne masquée dans laquelle tu inscrira le chemin au format texte.
Dans la colonne où le lien doit s'afficher tu utiliseras la formule =LIEN_HYPERTEXTE()en faisant référence aux cellules de la colonne contenant le chemin au format texte.

A+

[olabarbe]

Merci pour cette solution, j'y avais songé mais j'ai bien peur que les autres utilisateurs ne prennent pas la peine d'entrer le lien complet dans une cellule... il ne faut pas perturber les habitudes de ces bonnes gens !

Mais ça me fait penser à une autre possibilité : faire executer une macro lors des enregistrements qui reccupère les chemins absolu d'un lien hypertexte et remplace la cellule contenant ce lien par la fonction LIEN_HYPETEXTE() avec le chemin absolu...

Je vais faire quelques recherches pour voir comment dépatouiller tout ça (pas aujourd'hui.. pas le temps) et je reviendrai ici pour donner des nouvelles...

J'espère que ça pourra servir à d'autres!

[78chris]

Bonjour

Selon le site de Miicrosoft (pas testé) :
Dans les propriétés avancées du document, onglet résumé, Répertoire Web : taper un x.

[BlueMonkey]

Salut,

Mais ça me fait penser à une autre possibilité : faire executer une macro lors des enregistrements qui reccupère les chemins absolu d'un lien hypertexte et remplace la cellule contenant ce lien par la fonction LIEN_HYPETEXTE() avec le chemin absolu..

Si tu veux pas t'embêter, et si VBA est possible autant déactiver l'option Mettre à jour les liens lors de l'enregistrement via une macro s'exécutant à l'ouverture du fichier.

Code :

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

1
2
3
Private Sub Workbook_Open()
    Application.DefaultWebOptions.UpdateLinksOnSave = False
End Sub

A+

[78chris]

Bonjour

J'ai testé la solution de Microsoft : elle fonctionne si on change bien les propriétés du document avant de créer les liens.

Pour le solution de BlueMonkey : ne pas oublier de rétablir les paramètres de l'utilisateur à la fermeture du fichier car sinon, pour tous ses autres fichiers, il risque de ne pas apprécier...

[brunoSCP]

Salut,
Je complète cette vieille discussion car j'y ai trouvé la solution à mon problème en exploitant la proposition de blueMonkey et en tenant compte de l'avertissement de 78chris.

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
 
 
Global Application_DefaultWebOptions_UpdateLinksOnSave As Boolean 
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    'Sauvegarde du type de mise à jour des liens
    Application_DefaultWebOptions_UpdateLinksOnSave = Application.DefaultWebOptions.UpdateLinksOnSave
    'modification de cette option pour ne pas sauvegarder les liens (sinon ils sont écrasés par des liens relatifs qui est le comportement normal d'Excel)
    Application.DefaultWebOptions.UpdateLinksOnSave = False
End Sub
 
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    'Restauration de la valeur originelle de l'option de mise à jour des liens
    Application.DefaultWebOptions.UpdateLinksOnSave = Application_DefaultWebOptions_UpdateLinksOnSave
End Sub