Changer l'adresse des liens hypertexte et garder leurs fonctions
3 réponses
fanfan72
Dans un tableau j'ai environ 300 cellules avec des liens hypertextes vers des
fichiers spécifiques. Ces fichiers sont en vrac dans un répertoire mais les
liens sont établis. Si je décide de classer ces fichiers dans des
répertoires, ex par mois, les liens ne sont plus valides et je suis obligée
de tout recommencer un par un.
Existe t-il un moyen pour figer les liens avant toutes modifications des
adresses ?
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
Daniel
Bonjour. Une solution peut être de créer des raccourcis de chaque fichier, de déplacer les raccourcis et de conserver les fichiers dans le répertoire d'origine ou le contrtaire, les raccourcis dans le répertoire d'origine et les fichiers dans les nouveaux répertoires en appliquant la macro suivante, après avoir sélectionné la plage de liens à modifier : Sub test() For Each c In Selection c.Hyperlinks(1).Address = Range("B2").Hyperlinks(1).Address & ".lnk" Next c End Sub
Cordialement. Daniel "fanfan72" a écrit dans le message de news:
Dans un tableau j'ai environ 300 cellules avec des liens hypertextes vers des fichiers spécifiques. Ces fichiers sont en vrac dans un répertoire mais les liens sont établis. Si je décide de classer ces fichiers dans des répertoires, ex par mois, les liens ne sont plus valides et je suis obligée de tout recommencer un par un. Existe t-il un moyen pour figer les liens avant toutes modifications des adresses ?
Bonjour.
Une solution peut être de créer des raccourcis de chaque fichier, de
déplacer les raccourcis et de conserver les fichiers dans le répertoire
d'origine ou le contrtaire, les raccourcis dans le répertoire d'origine et
les fichiers dans les nouveaux répertoires en appliquant la macro suivante,
après avoir sélectionné la plage de liens à modifier
:
Sub test()
For Each c In Selection
c.Hyperlinks(1).Address = Range("B2").Hyperlinks(1).Address & ".lnk"
Next c
End Sub
Cordialement.
Daniel
"fanfan72" <fanfan72@discussions.microsoft.com> a écrit dans le message de
news: 7A9E697E-21FA-49BA-8912-A1B8CBCA6BC6@microsoft.com...
Dans un tableau j'ai environ 300 cellules avec des liens hypertextes vers
des
fichiers spécifiques. Ces fichiers sont en vrac dans un répertoire mais
les
liens sont établis. Si je décide de classer ces fichiers dans des
répertoires, ex par mois, les liens ne sont plus valides et je suis
obligée
de tout recommencer un par un.
Existe t-il un moyen pour figer les liens avant toutes modifications des
adresses ?
Bonjour. Une solution peut être de créer des raccourcis de chaque fichier, de déplacer les raccourcis et de conserver les fichiers dans le répertoire d'origine ou le contrtaire, les raccourcis dans le répertoire d'origine et les fichiers dans les nouveaux répertoires en appliquant la macro suivante, après avoir sélectionné la plage de liens à modifier : Sub test() For Each c In Selection c.Hyperlinks(1).Address = Range("B2").Hyperlinks(1).Address & ".lnk" Next c End Sub
Cordialement. Daniel "fanfan72" a écrit dans le message de news:
Dans un tableau j'ai environ 300 cellules avec des liens hypertextes vers des fichiers spécifiques. Ces fichiers sont en vrac dans un répertoire mais les liens sont établis. Si je décide de classer ces fichiers dans des répertoires, ex par mois, les liens ne sont plus valides et je suis obligée de tout recommencer un par un. Existe t-il un moyen pour figer les liens avant toutes modifications des adresses ?
crole
Bonsoir et merci Daniel
Je te propose mon code vba
Private Sub CmdAnne_Click() Sheets("Liste rapport").Select For Each sh In Sheets ActiveCell = sh.Name ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4 ActiveCell.Offset(1, 0).Select Next sh End Sub
Peux-tu dans ce code m'aider pour intercaler le code que tu me propose merci Amicalement Crole
Bonsoir et merci Daniel
Je te propose mon code vba
Private Sub CmdAnne_Click()
Sheets("Liste rapport").Select
For Each sh In Sheets
ActiveCell = sh.Name
ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4
ActiveCell.Offset(1, 0).Select
Next sh
End Sub
Peux-tu dans ce code m'aider pour intercaler le code que tu me propose
merci
Amicalement
Crole
Private Sub CmdAnne_Click() Sheets("Liste rapport").Select For Each sh In Sheets ActiveCell = sh.Name ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4 ActiveCell.Offset(1, 0).Select Next sh End Sub
Peux-tu dans ce code m'aider pour intercaler le code que tu me propose merci Amicalement Crole
Daniel
Bonsoir. S'il te plaît, reste dans le fil que tu as initié, j'ai mis un moment à réaliser de quel code il s'agissait. Je te réponds dans le fil "changer la couleur des onglets". Daniel "crole" a écrit dans le message de news:
Bonsoir et merci Daniel
Je te propose mon code vba
Private Sub CmdAnne_Click() Sheets("Liste rapport").Select For Each sh In Sheets ActiveCell = sh.Name ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4 ActiveCell.Offset(1, 0).Select Next sh End Sub
Peux-tu dans ce code m'aider pour intercaler le code que tu me propose merci Amicalement Crole
Bonsoir.
S'il te plaît, reste dans le fil que tu as initié, j'ai mis un moment à
réaliser de quel code il s'agissait.
Je te réponds dans le fil "changer la couleur des onglets".
Daniel
"crole" <contactbruno@skynet.be> a écrit dans le message de news:
1148487747.020959.213520@j55g2000cwa.googlegroups.com...
Bonsoir et merci Daniel
Je te propose mon code vba
Private Sub CmdAnne_Click()
Sheets("Liste rapport").Select
For Each sh In Sheets
ActiveCell = sh.Name
ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4
ActiveCell.Offset(1, 0).Select
Next sh
End Sub
Peux-tu dans ce code m'aider pour intercaler le code que tu me propose
merci
Amicalement
Crole
Bonsoir. S'il te plaît, reste dans le fil que tu as initié, j'ai mis un moment à réaliser de quel code il s'agissait. Je te réponds dans le fil "changer la couleur des onglets". Daniel "crole" a écrit dans le message de news:
Bonsoir et merci Daniel
Je te propose mon code vba
Private Sub CmdAnne_Click() Sheets("Liste rapport").Select For Each sh In Sheets ActiveCell = sh.Name ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4 ActiveCell.Offset(1, 0).Select Next sh End Sub
Peux-tu dans ce code m'aider pour intercaler le code que tu me propose merci Amicalement Crole
