liens qui ont changés d adresse

Le
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
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
Daniel.C
Le #21364761
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
daniel M.
Le #21364871
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"
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




michdenis
Le #21364951
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
daniel M.
Le #21365601
Non ca ne modifie rien...
est ce parceque ces liens sont sur des etiquettes 'objets' ?


"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



Daniel.C
Le #21365651
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" %
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



daniel M.
Le #21366081
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" 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" %
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









Daniel.C
Le #21366801
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" 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" %
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









Publicité
Poster une réponse
Anonyme