Bonjour,
Dans une feuille, j'ai une centaine de liens hypertexte vers des documents
word qui se trouvent tous dans le même répertoire.
Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il
possible de modifier tous les liens par VBA ? Ou est-il possible de créer
des liens "dynamiques" ?
Merci de vos prochaines réponses.
Danielh
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,
Sub ModifieAddresse() NvRepertoire = "c:MesdocExcelMacroNouveau1001exemples" For Each h In ActiveSheet.Hyperlinks a = Split(Replace(h.Address, "", "/"), "/") nf = a(UBound(a)) h.Address = NvRepertoire & nf Next h End Sub
Bonjour, Dans une feuille, j'ai une centaine de liens hypertexte vers des document s word qui se trouvent tous dans le même répertoire. Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il possible de modifier tous les liens par VBA ? Ou est-il possible de cré er des liens "dynamiques" ? Merci de vos prochaines réponses. Danielh
Bonjour,
Sub ModifieAddresse()
NvRepertoire = "c:MesdocExcelMacroNouveau1001exemples"
For Each h In ActiveSheet.Hyperlinks
a = Split(Replace(h.Address, "", "/"), "/")
nf = a(UBound(a))
h.Address = NvRepertoire & nf
Next h
End Sub
JB
http://boisgontierjacques.free.fr/
On 13 fév, 13:59, "daniel" <dandaneff...@neuf.fr> wrote:
Bonjour,
Dans une feuille, j'ai une centaine de liens hypertexte vers des document s
word qui se trouvent tous dans le même répertoire.
Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il
possible de modifier tous les liens par VBA ? Ou est-il possible de cré er
des liens "dynamiques" ?
Merci de vos prochaines réponses.
Danielh
Sub ModifieAddresse() NvRepertoire = "c:MesdocExcelMacroNouveau1001exemples" For Each h In ActiveSheet.Hyperlinks a = Split(Replace(h.Address, "", "/"), "/") nf = a(UBound(a)) h.Address = NvRepertoire & nf Next h End Sub
Bonjour, Dans une feuille, j'ai une centaine de liens hypertexte vers des document s word qui se trouvent tous dans le même répertoire. Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il possible de modifier tous les liens par VBA ? Ou est-il possible de cré er des liens "dynamiques" ? Merci de vos prochaines réponses. Danielh
Daniel.C
Bonjour. Modifie le nouveau chemin, délectionne la plage de cellules à traiter et exécute la macro suivante :
Sub test() Dim c As Range, Fich As String Const NouveauChemin = "c:temp" For Each c In Selection Var = c.Hyperlinks(1).Address Fich = Mid(c.Value, InStrRev(c.Value, "") + 1, _ Len(c.Value) - InStrRev(c.Value, "")) c.Hyperlinks(1).Delete ActiveSheet.Hyperlinks.Add c, NouveauChemin & Fich, TextToDisplay:=NouveauChemin & Fich Next c End Sub
Cordialement. Daniel
Bonjour, Dans une feuille, j'ai une centaine de liens hypertexte vers des documents word qui se trouvent tous dans le même répertoire. Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il possible de modifier tous les liens par VBA ? Ou est-il possible de créer des liens "dynamiques" ? Merci de vos prochaines réponses. Danielh
Bonjour.
Modifie le nouveau chemin, délectionne la plage de cellules à traiter
et exécute la macro suivante :
Sub test()
Dim c As Range, Fich As String
Const NouveauChemin = "c:temp"
For Each c In Selection
Var = c.Hyperlinks(1).Address
Fich = Mid(c.Value, InStrRev(c.Value, "") + 1, _
Len(c.Value) - InStrRev(c.Value, ""))
c.Hyperlinks(1).Delete
ActiveSheet.Hyperlinks.Add c, NouveauChemin & Fich,
TextToDisplay:=NouveauChemin & Fich
Next c
End Sub
Cordialement.
Daniel
Bonjour,
Dans une feuille, j'ai une centaine de liens hypertexte vers des documents
word qui se trouvent tous dans le même répertoire.
Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il
possible de modifier tous les liens par VBA ? Ou est-il possible de créer des
liens "dynamiques" ?
Merci de vos prochaines réponses.
Danielh
Bonjour. Modifie le nouveau chemin, délectionne la plage de cellules à traiter et exécute la macro suivante :
Sub test() Dim c As Range, Fich As String Const NouveauChemin = "c:temp" For Each c In Selection Var = c.Hyperlinks(1).Address Fich = Mid(c.Value, InStrRev(c.Value, "") + 1, _ Len(c.Value) - InStrRev(c.Value, "")) c.Hyperlinks(1).Delete ActiveSheet.Hyperlinks.Add c, NouveauChemin & Fich, TextToDisplay:=NouveauChemin & Fich Next c End Sub
Cordialement. Daniel
Bonjour, Dans une feuille, j'ai une centaine de liens hypertexte vers des documents word qui se trouvent tous dans le même répertoire. Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il possible de modifier tous les liens par VBA ? Ou est-il possible de créer des liens "dynamiques" ? Merci de vos prochaines réponses. Danielh
daniel
Bonjour, ça marche nickel. mais je ne comprend pas le mid, pourquoi est-ce bien le dernier qui est compté ?? Merci beaucoup. Danielh
"Daniel.C" a écrit dans le message de news: %23JKh$
Bonjour. Modifie le nouveau chemin, délectionne la plage de cellules à traiter et exécute la macro suivante :
Sub test() Dim c As Range, Fich As String Const NouveauChemin = "c:temp" For Each c In Selection Var = c.Hyperlinks(1).Address Fich = Mid(c.Value, InStrRev(c.Value, "") + 1, _ Len(c.Value) - InStrRev(c.Value, "")) c.Hyperlinks(1).Delete ActiveSheet.Hyperlinks.Add c, NouveauChemin & Fich, TextToDisplay:=NouveauChemin & Fich Next c End Sub
Cordialement. Daniel
Bonjour, Dans une feuille, j'ai une centaine de liens hypertexte vers des documents word qui se trouvent tous dans le même répertoire. Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il possible de modifier tous les liens par VBA ? Ou est-il possible de créer des liens "dynamiques" ? Merci de vos prochaines réponses. Danielh
Bonjour,
ça marche nickel.
mais je ne comprend pas le mid, pourquoi est-ce bien le dernier qui est
compté ??
Merci beaucoup.
Danielh
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23JKh$KLrKHA.5940@TK2MSFTNGP02.phx.gbl...
Bonjour.
Modifie le nouveau chemin, délectionne la plage de cellules à traiter et
exécute la macro suivante :
Sub test()
Dim c As Range, Fich As String
Const NouveauChemin = "c:temp"
For Each c In Selection
Var = c.Hyperlinks(1).Address
Fich = Mid(c.Value, InStrRev(c.Value, "") + 1, _
Len(c.Value) - InStrRev(c.Value, ""))
c.Hyperlinks(1).Delete
ActiveSheet.Hyperlinks.Add c, NouveauChemin & Fich,
TextToDisplay:=NouveauChemin & Fich
Next c
End Sub
Cordialement.
Daniel
Bonjour,
Dans une feuille, j'ai une centaine de liens hypertexte vers des
documents word qui se trouvent tous dans le même répertoire.
Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il
possible de modifier tous les liens par VBA ? Ou est-il possible de créer
des liens "dynamiques" ?
Merci de vos prochaines réponses.
Danielh
Bonjour, ça marche nickel. mais je ne comprend pas le mid, pourquoi est-ce bien le dernier qui est compté ?? Merci beaucoup. Danielh
"Daniel.C" a écrit dans le message de news: %23JKh$
Bonjour. Modifie le nouveau chemin, délectionne la plage de cellules à traiter et exécute la macro suivante :
Sub test() Dim c As Range, Fich As String Const NouveauChemin = "c:temp" For Each c In Selection Var = c.Hyperlinks(1).Address Fich = Mid(c.Value, InStrRev(c.Value, "") + 1, _ Len(c.Value) - InStrRev(c.Value, "")) c.Hyperlinks(1).Delete ActiveSheet.Hyperlinks.Add c, NouveauChemin & Fich, TextToDisplay:=NouveauChemin & Fich Next c End Sub
Cordialement. Daniel
Bonjour, Dans une feuille, j'ai une centaine de liens hypertexte vers des documents word qui se trouvent tous dans le même répertoire. Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il possible de modifier tous les liens par VBA ? Ou est-il possible de créer des liens "dynamiques" ? Merci de vos prochaines réponses. Danielh
Daniel.C
Bonjour. InStrRev recherche à partir de la fin. C'est le contraire de Instr. Daniel
Bonjour, ça marche nickel. mais je ne comprend pas le mid, pourquoi est-ce bien le dernier qui est compté ?? Merci beaucoup. Danielh
"Daniel.C" a écrit dans le message de news: %23JKh$
Bonjour. Modifie le nouveau chemin, délectionne la plage de cellules à traiter et exécute la macro suivante :
Sub test() Dim c As Range, Fich As String Const NouveauChemin = "c:temp" For Each c In Selection Var = c.Hyperlinks(1).Address Fich = Mid(c.Value, InStrRev(c.Value, "") + 1, _ Len(c.Value) - InStrRev(c.Value, "")) c.Hyperlinks(1).Delete ActiveSheet.Hyperlinks.Add c, NouveauChemin & Fich, TextToDisplay:=NouveauChemin & Fich Next c End Sub
Cordialement. Daniel
Bonjour, Dans une feuille, j'ai une centaine de liens hypertexte vers des documents word qui se trouvent tous dans le même répertoire. Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il possible de modifier tous les liens par VBA ? Ou est-il possible de créer des liens "dynamiques" ? Merci de vos prochaines réponses. Danielh
Bonjour.
InStrRev recherche à partir de la fin. C'est le contraire de Instr.
Daniel
Bonjour,
ça marche nickel.
mais je ne comprend pas le mid, pourquoi est-ce bien le dernier qui est
compté ??
Merci beaucoup.
Danielh
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23JKh$KLrKHA.5940@TK2MSFTNGP02.phx.gbl...
Bonjour.
Modifie le nouveau chemin, délectionne la plage de cellules à traiter et
exécute la macro suivante :
Sub test()
Dim c As Range, Fich As String
Const NouveauChemin = "c:temp"
For Each c In Selection
Var = c.Hyperlinks(1).Address
Fich = Mid(c.Value, InStrRev(c.Value, "") + 1, _
Len(c.Value) - InStrRev(c.Value, ""))
c.Hyperlinks(1).Delete
ActiveSheet.Hyperlinks.Add c, NouveauChemin & Fich,
TextToDisplay:=NouveauChemin & Fich
Next c
End Sub
Cordialement.
Daniel
Bonjour,
Dans une feuille, j'ai une centaine de liens hypertexte vers des documents
word qui se trouvent tous dans le même répertoire.
Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il
possible de modifier tous les liens par VBA ? Ou est-il possible de créer
des liens "dynamiques" ?
Merci de vos prochaines réponses.
Danielh
Bonjour. InStrRev recherche à partir de la fin. C'est le contraire de Instr. Daniel
Bonjour, ça marche nickel. mais je ne comprend pas le mid, pourquoi est-ce bien le dernier qui est compté ?? Merci beaucoup. Danielh
"Daniel.C" a écrit dans le message de news: %23JKh$
Bonjour. Modifie le nouveau chemin, délectionne la plage de cellules à traiter et exécute la macro suivante :
Sub test() Dim c As Range, Fich As String Const NouveauChemin = "c:temp" For Each c In Selection Var = c.Hyperlinks(1).Address Fich = Mid(c.Value, InStrRev(c.Value, "") + 1, _ Len(c.Value) - InStrRev(c.Value, "")) c.Hyperlinks(1).Delete ActiveSheet.Hyperlinks.Add c, NouveauChemin & Fich, TextToDisplay:=NouveauChemin & Fich Next c End Sub
Cordialement. Daniel
Bonjour, Dans une feuille, j'ai une centaine de liens hypertexte vers des documents word qui se trouvent tous dans le même répertoire. Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il possible de modifier tous les liens par VBA ? Ou est-il possible de créer des liens "dynamiques" ? Merci de vos prochaines réponses. Danielh
daniel
Bonsoir, Avec les explications... ;-)) Encore merci. Danielh
"Daniel.C" a écrit dans le message de news: uQ%
Bonjour. InStrRev recherche à partir de la fin. C'est le contraire de Instr. Daniel
Bonjour, ça marche nickel. mais je ne comprend pas le mid, pourquoi est-ce bien le dernier qui est compté ?? Merci beaucoup. Danielh
"Daniel.C" a écrit dans le message de news: %23JKh$
Bonjour. Modifie le nouveau chemin, délectionne la plage de cellules à traiter et exécute la macro suivante :
Sub test() Dim c As Range, Fich As String Const NouveauChemin = "c:temp" For Each c In Selection Var = c.Hyperlinks(1).Address Fich = Mid(c.Value, InStrRev(c.Value, "") + 1, _ Len(c.Value) - InStrRev(c.Value, "")) c.Hyperlinks(1).Delete ActiveSheet.Hyperlinks.Add c, NouveauChemin & Fich, TextToDisplay:=NouveauChemin & Fich Next c End Sub
Cordialement. Daniel
Bonjour, Dans une feuille, j'ai une centaine de liens hypertexte vers des documents word qui se trouvent tous dans le même répertoire. Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il possible de modifier tous les liens par VBA ? Ou est-il possible de créer des liens "dynamiques" ? Merci de vos prochaines réponses. Danielh
Bonsoir,
Avec les explications... ;-))
Encore merci.
Danielh
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uQ%23E10ZrKHA.4236@TK2MSFTNGP02.phx.gbl...
Bonjour.
InStrRev recherche à partir de la fin. C'est le contraire de Instr.
Daniel
Bonjour,
ça marche nickel.
mais je ne comprend pas le mid, pourquoi est-ce bien le dernier qui est
compté ??
Merci beaucoup.
Danielh
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23JKh$KLrKHA.5940@TK2MSFTNGP02.phx.gbl...
Bonjour.
Modifie le nouveau chemin, délectionne la plage de cellules à traiter et
exécute la macro suivante :
Sub test()
Dim c As Range, Fich As String
Const NouveauChemin = "c:temp"
For Each c In Selection
Var = c.Hyperlinks(1).Address
Fich = Mid(c.Value, InStrRev(c.Value, "") + 1, _
Len(c.Value) - InStrRev(c.Value, ""))
c.Hyperlinks(1).Delete
ActiveSheet.Hyperlinks.Add c, NouveauChemin & Fich,
TextToDisplay:=NouveauChemin & Fich
Next c
End Sub
Cordialement.
Daniel
Bonjour,
Dans une feuille, j'ai une centaine de liens hypertexte vers des
documents word qui se trouvent tous dans le même répertoire.
Mais si le répertoire est déplacé, les liens ne fonctionnent plus.
Est-il possible de modifier tous les liens par VBA ? Ou est-il possible
de créer des liens "dynamiques" ?
Merci de vos prochaines réponses.
Danielh
Bonsoir, Avec les explications... ;-)) Encore merci. Danielh
"Daniel.C" a écrit dans le message de news: uQ%
Bonjour. InStrRev recherche à partir de la fin. C'est le contraire de Instr. Daniel
Bonjour, ça marche nickel. mais je ne comprend pas le mid, pourquoi est-ce bien le dernier qui est compté ?? Merci beaucoup. Danielh
"Daniel.C" a écrit dans le message de news: %23JKh$
Bonjour. Modifie le nouveau chemin, délectionne la plage de cellules à traiter et exécute la macro suivante :
Sub test() Dim c As Range, Fich As String Const NouveauChemin = "c:temp" For Each c In Selection Var = c.Hyperlinks(1).Address Fich = Mid(c.Value, InStrRev(c.Value, "") + 1, _ Len(c.Value) - InStrRev(c.Value, "")) c.Hyperlinks(1).Delete ActiveSheet.Hyperlinks.Add c, NouveauChemin & Fich, TextToDisplay:=NouveauChemin & Fich Next c End Sub
Cordialement. Daniel
Bonjour, Dans une feuille, j'ai une centaine de liens hypertexte vers des documents word qui se trouvent tous dans le même répertoire. Mais si le répertoire est déplacé, les liens ne fonctionnent plus. Est-il possible de modifier tous les liens par VBA ? Ou est-il possible de créer des liens "dynamiques" ? Merci de vos prochaines réponses. Danielh