Modification de liens hypertext de plusieurs cellules dans différents onglets

[Alex_Collin]

Bonjour,

je souhaiterais savoir s'il est possible de modifier les adresses de liens hypertext
de plusieurs cellules dans différents onglets sur le même principe que :
"recherche et remplace" ?

Pour info., j'ai un fichier de plus de 200 onglets avec pour chaque onglet,
2 à 6 liens hypertext. Je travaille sur un serveur d'entreprise.

Le changement serais le suivant :
"../../../nom.rep./..........." vers "nom.serveur/nom.rep/..........."

Est-ce possible ?

Merci de votre aide.
Alex_Collin

 

[Cousinhub]

Re : Modification de liens hypertext de plusieurs cellules dans différents onglets

Bonjour,

oui, c'est possible, mais il va falloir nous en dire un peu plus...

Par exemple en mettant quelques adresses complètes dans le fil...

Du style :

C:\Mes Documents\2009\Test

à remplacer par :

D:\Documents de Alex\2009\Test

Bref, on veut bien remplacer l'adresse, mais il faudrait connaître le nombre de répertoires et/ou sous répertoires à modifier...

 

[Alex_Collin]

Re : Modification de liens hypertext de plusieurs cellules dans différents onglets

Bonjour BHBH,

le changement à faire serait générale et toujour sur le début de l'adresse :
- C:\folder\sub.folder1\sub.folder2\sub.folder3\File.xls
vers :
- \\nom.serveur\folder\sub.folder1\sub.folder2\sub.folder3\File.xls

donc faire un changement de "C:\" vers "\\nom.serveur\".

Les répertoires et sous répertoires ne changent pas.

Merci.

 

[Cousinhub]

Re : Modification de liens hypertext de plusieurs cellules dans différents onglets

Re-,

un essai :

Sub modif_lien()
Dim Hl As Hyperlink
Dim Sh As Worksheet
Dim Rep As String
For Each Sh In Sheets
    For Each Hl In Sh.Hyperlinks
        Rep = "\\nom.serveur" & Right(Hl.Address, Len(Hl.Address) - 2)
        Hl.Address = Rep
    Next Hl
Next Sh
End Sub

Peut-être?

 

[Alex_Collin]

Re : Modification de liens hypertext de plusieurs cellules dans différents onglets

Je teste cela lundi et reviens avec un commentaire.
Je dois être au boulot pour tester.

A+

 

[Alex_Collin]

Re : Modification de liens hypertext de plusieurs cellules dans différents onglets

Re-,

un essai :

Sub modif_lien()
Dim Hl As Hyperlink
Dim Sh As Worksheet
Dim Rep As String
For Each Sh In Sheets
    For Each Hl In Sh.Hyperlinks
        Rep = "\\nom.serveur" & Right(Hl.Address, Len(Hl.Address) - 2)
        Hl.Address = Rep
    Next Hl
Next Sh
End Sub

Peut-être?

Bonjour BHBH,

mieux vaut tard que jamais!
J'ai testé et cela bug.
La ligne "Rep = "\\nom.serveur" & Right(Hl.Address, Len(Hl.Address) - 2)"
est identifiée comme problématique.

Mais en parallèle, j'ai trouvé une parade à mon problème.
En effet, ce problème était lié à un autre post que j'avais envoyé suite à la perte de mes liens hypertexte après enregistrement du fichier.
D'une pierre deux coups !

Il faut dé-selectionner la mise à jour des liens hypertexte dans le menu "Options" :
Menu Options
- Onglet "Général" --> Options web ...
- Dé-selectionner "mettre à jour les liens lors de l'enregistrement".

De mon coté cela fonctionne.

Salutations,
Alex_Collin