Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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" <jacd...@free.fr> wrote:
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)
NvRepertoire = "c:MesdocExcelMacroNouveau1001exemples" For Each h In ActiveSheet.Hyperlinks a = Split(Replace(h.Address, "", "/"), "/") nf = a(UBound(a)) h.Address = NvRepertoire & nf Next h
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
Merci JB
Je vais essayer. Cela me sera d'une grande utililité car j'ai plusieurs fichiers à traiter.
Slts Jack "JB" a écrit dans le message de news:
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
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
Merci JB
Je vais essayer. Cela me sera d'une grande utililité car j'ai plusieurs
fichiers à traiter.
Slts
Jack
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1193042515.096207.280440@i13g2000prf.googlegroups.com...
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" <jacd...@free.fr> wrote:
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)
Je vais essayer. Cela me sera d'une grande utililité car j'ai plusieurs fichiers à traiter.
Slts Jack "JB" a écrit dans le message de news:
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