Lien hypertexte

Le
Jack
Bonjour à tous

J'ai ajouté des liens hypertextes (fichier image) sur des cellules d'une
feuille de calcul .

J'ai déplacé ces fichiers images et bien entendu mes liens ne sont plus
valides.

Y a t-il un moyen de faire une opération globale pour modifier en une seule
fois le chemin des ces liens hypertextes (avec une macro par exemple)

Merci à vous

A+
Jack
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5001841
Bonjour,

NvRepertoire = "c:MesdocExcelMacroNouveau1001exemples"
For Each h In ActiveSheet.Hyperlinks
a = Split(Replace(h.Address, "", "/"), "/")
nf = a(UBound(a))
h.Address = NvRepertoire & nf
Next h

JB
http://boisgontierjacques.free.fr

On 22 oct, 09:41, "Jack"
Bonjour à tous

J'ai ajouté des liens hypertextes (fichier image) sur des cellules d'une
feuille de calcul .

J'ai déplacé ces fichiers images et bien entendu mes liens ne sont pl us
valides.

Y a t-il un moyen de faire une opération globale pour modifier en une s eule
fois le chemin des ces liens hypertextes (avec une macro par exemple)

Merci à vous

A+
Jack


Jack
Le #5000571
Merci JB

Je vais essayer. Cela me sera d'une grande utililité car j'ai plusieurs
fichiers à traiter.

Slts
Jack
"JB"
Bonjour,

NvRepertoire = "c:MesdocExcelMacroNouveau1001exemples"
For Each h In ActiveSheet.Hyperlinks
a = Split(Replace(h.Address, "", "/"), "/")
nf = a(UBound(a))
h.Address = NvRepertoire & nf
Next h

JB
http://boisgontierjacques.free.fr

On 22 oct, 09:41, "Jack"
Bonjour à tous

J'ai ajouté des liens hypertextes (fichier image) sur des cellules d'une
feuille de calcul .

J'ai déplacé ces fichiers images et bien entendu mes liens ne sont plus
valides.

Y a t-il un moyen de faire une opération globale pour modifier en une
seule
fois le chemin des ces liens hypertextes (avec une macro par exemple)

Merci à vous

A+
Jack


Publicité
Poster une réponse
Anonyme