Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel liens qui ont changés d adresse

liens qui ont changés d adresse

7 réponses
Avatar
daniel M.
bonjour
tous mes dossiers se trouvent dans D:\
dans mon dossier de travail, tous les liens hyper textes (des centaines)
qui 'pointaient' normalement vers des dossiers qui étaient dans D:\ se
mettent TOUS à 'pointer vers C:\ !!!
dans edition / liaison tout est pourtant bon.
merci de votre aide
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Daniel.C
Bonjour.
Essaie la procédure :

Sub test()
Dim c As Range
For Each c In Selection
txt = c.Hyperlinks(1).Address
c.Hyperlinks(1).Address = "D" & Right(txt, Len(txt) - 1)
Next c
End Sub

Cordialement.
Daniel

bonjour
tous mes dossiers se trouvent dans D:
dans mon dossier de travail, tous les liens hyper textes (des centaines) qui
'pointaient' normalement vers des dossiers qui étaient dans D: se mettent
TOUS à 'pointer vers C: !!!
dans edition / liaison tout est pourtant bon.
merci de votre aide
Avatar
daniel M.
oui merci...j ai essayé

ca me bloque à la ligne suivante:
txt = c.Hyperlinks(1).Address
avec message: 'l indice n appartient pas à la sélection...'

merci de ton aide


"Daniel.C" a écrit dans le message de news:

Bonjour.
Essaie la procédure :

Sub test()
Dim c As Range
For Each c In Selection
txt = c.Hyperlinks(1).Address
c.Hyperlinks(1).Address = "D" & Right(txt, Len(txt) - 1)
Next c
End Sub

Cordialement.
Daniel

bonjour
tous mes dossiers se trouvent dans D:
dans mon dossier de travail, tous les liens hyper textes (des centaines)
qui 'pointaient' normalement vers des dossiers qui étaient dans D: se
mettent TOUS à 'pointer vers C: !!!
dans edition / liaison tout est pourtant bon.
merci de votre aide




Avatar
michdenis
Dans ta sélection, si tu as des cellules qui n'ont pas de lien hypertexte
une erreur est générée.

En début de procédure, ajoute la ligne de code :
On error resume next



ca me bloque à la ligne suivante:
txt = c.Hyperlinks(1).Address
avec message: 'l indice n appartient pas à la sélection...'

merci de ton aide
Avatar
daniel M.
Non ca ne modifie rien...
est ce parceque ces liens sont sur des etiquettes 'objets' ?


"michdenis" a écrit dans le message de news:
%
Dans ta sélection, si tu as des cellules qui n'ont pas de lien hypertexte
une erreur est générée.

En début de procédure, ajoute la ligne de code :
On error resume next



ca me bloque à la ligne suivante:
txt = c.Hyperlinks(1).Address
avec message: 'l indice n appartient pas à la sélection...'

merci de ton aide



Avatar
Daniel.C
Oui, je cherche les liens dans les cellules. Qu'entends-tu exactement
par "etiquettes 'objets'" ?
Daniel

Non ca ne modifie rien...
est ce parceque ces liens sont sur des etiquettes 'objets' ?


"michdenis" a écrit dans le message de news:
%
Dans ta sélection, si tu as des cellules qui n'ont pas de lien hypertexte
une erreur est générée.

En début de procédure, ajoute la ligne de code :
On error resume next



ca me bloque à la ligne suivante:
txt = c.Hyperlinks(1).Address
avec message: 'l indice n appartient pas à la sélection...'

merci de ton aide



Avatar
daniel M.
Je dessine un rectangle (barre outil dessin) j' y entre du texte et affecte
un lien :)
(en fait je fais un bouton sur lequel on clique)

"Daniel.C" a écrit dans le message de news:
eJCm%
Oui, je cherche les liens dans les cellules. Qu'entends-tu exactement par
"etiquettes 'objets'" ?
Daniel

Non ca ne modifie rien...
est ce parceque ces liens sont sur des etiquettes 'objets' ?


"michdenis" a écrit dans le message de news:
%
Dans ta sélection, si tu as des cellules qui n'ont pas de lien
hypertexte
une erreur est générée.

En début de procédure, ajoute la ligne de code :
On error resume next



ca me bloque à la ligne suivante:
txt = c.Hyperlinks(1).Address
avec message: 'l indice n appartient pas à la sélection...'

merci de ton aide









Avatar
Daniel.C
Alors :

Sub test()
Dim sh As Shape
On Error Resume Next
For Each sh In ActiveSheet.Shapes
txt = sh.Hyperlink.Address
sh.Hyperlink.Address = "D" & Right(txt, Len(txt) - 1)
Next sh
End Sub

Daniel


Je dessine un rectangle (barre outil dessin) j' y entre du texte et affecte
un lien :)
(en fait je fais un bouton sur lequel on clique)

"Daniel.C" a écrit dans le message de news:
eJCm%
Oui, je cherche les liens dans les cellules. Qu'entends-tu exactement par
"etiquettes 'objets'" ?
Daniel

Non ca ne modifie rien...
est ce parceque ces liens sont sur des etiquettes 'objets' ?


"michdenis" a écrit dans le message de news:
%
Dans ta sélection, si tu as des cellules qui n'ont pas de lien hypertexte
une erreur est générée.

En début de procédure, ajoute la ligne de code :
On error resume next



ca me bloque à la ligne suivante:
txt = c.Hyperlinks(1).Address
avec message: 'l indice n appartient pas à la sélection...'

merci de ton aide