complement d'une macro pour reconfiguration de lien

[kustom]

bonjour a tous ^^,
actuellement stagiaire j'aurai besoin d'aide sur un sujet:
j'ai parcouru le forum pour essayer de répondre a ma question mais "je nage" un peu 🙁 .
j'espère que vous trouverez le temps de m'aider 🙂

mes liens hypertexte changent de chemin et je dois les refaire cela fait 2X et il y en a tellement que sa me prend un temps fou sachant que sa risque de se reproduire...
je cherche un moyen de les reconfigurer en un clin d'œil. 😉
voila le code le plus approprié que j'ai trouvé, mais reste cependant un problème:

Sub test()
Dim Hs As Hyperlinks
Dim H As Hyperlink
Dim Sh As Worksheet
Dim NewAddress As String
'Le nouveau chemin de tes liens
NewAddress = "Documents techniques MP maison\"
For Each Sh In Worksheets
Set Hs = Sh.Cells.Hyperlinks
For Each H In Hs
x = Split(H.Address, "\")(UBound(Split(H.Address, "\")))
H.Address = Replace(H.Address, H.Address, NewAddress) & x
Next
Next
End Sub

Au niveau de: document technique MP maison\ je voudrai que derrière le "\" se rajoute le contenu de ma case a3 pour la ligne 3 puis,
a4, pour la ligne 4...etc, puis enfin le nom de fichier (mais je crois que ça il le fait déjà
Afin que tout mes liens se reconfigure automatiquement (ça se de-configure souvent apparemment 🙁 ), avec donc pour fin de chemin ma colonne 1 du tableau et ce sur chaque ligne du tableau. 😱

pour essayer d'être plus clair: la fin de mon chemin hypertexte se trouve dans ma colonne 1 de chaque ligne.et quand j'exécute la macro tel quel, il me manque toujours la fin de chemin (et je peu la prendre dans cette case) 😡
en vous remerciant d'avoir pris le temps de lire ce message. 🙂 🙂

 

[titiborregan5]

Re : complement d'une macro pour reconfiguration de lien

Salut Kustom,
peux-tu mettre un fichier exemple sans donnée réelle pour qu'on voit un peu mieux à quoi ça ressemble??

Merci

Tibo

 

[kustom]

Re : complement d'une macro pour reconfiguration de lien

bien sur ^^,

merci beaucoup

 

[kustom]

Re : complement d'une macro pour reconfiguration de lien

a noter que tout les liens de la ligne auront le même chemin, que la macro récupère bien le nom du dossier pour la fin du lien, il a juste un dossier qui n'apparait pas dans le chemin et c'est cette fameuse case ^^

exemple:
Documents%20techniques%20MP%20maison\*ici*\Cert%20ML503%20BSE%20free.pdf

 

[kjin]

Re : complement d'une macro pour reconfiguration de lien

Bonjour,

Sub test()
Dim Sh As Worksheet
Dim Hs As Hyperlinks, H As Hyperlink
Dim l As Long, nAddr As String
For Each Sh In Worksheets
    Set Hs = Sh.Cells.Hyperlinks
    For Each H In Hs
        nAddr = ""
        l = H.Range.Row
        nD = Sh.Cells(l, 1)
        T = Split(H.Address, "\")
        F = T(UBound(T))
        For i = LBound(T) To (UBound(T) - 1)
            nAddr = nAddr & T(i) & "\"
        Next
        nAddr = nAddr & nD & "\" & F
        H.Address = nAddr
    Next
Next

End Sub

A+
kjin

 

[kustom]

Re : complement d'une macro pour reconfiguration de lien

sa marche super, kjin ^^
un grand merci de toute l'équipe a tous ceux qui ce sont penché sur le problème 🙂 🙂 🙂
😀
bonne après midi

 

[kustom]

Re : complement d'une macro pour reconfiguration de lien

bonjour tout le monde,

j'ai re un soucis 🙁 le bug est revenu mais quand je lance ma macro il me dit :
erreur d'execution '-2147467259 (80004005)': la methode 'Adress' de l'objet hyperlink a échoué'
il me propose un debogage, et si je le lance il m'indique que cela viendrait d'ici
Sub test()
Dim Sh As Worksheet
Dim Hs As Hyperlinks, H As Hyperlink
Dim l As Long, nAddr As String
For Each Sh In Worksheets
Set Hs = Sh.Cells.Hyperlinks
For Each H In Hs
nAddr = ""
l = H.Range.Row
nD = Sh.Cells(l, 1)
T = Split(H.Address, "\")
F = T(UBound(T))
For i = LBound(T) To (UBound(T) - 1)
nAddr = nAddr & T(i) & "\"
Next
nAddr = nAddr & nD & "\" & F
H.Address = nAddr
Next
Next

End Sub