Mise à jour de Lien hypertexte dans un classeur

[Titoy]

Bonjour Le forum,

En fouillant un peu partout j'ai trouvé un lien sympathique permettant de mettre à jour des liens Hypertextes situé dans un classeur

LIEN XLD N°1

Le problème est que je ne comprend pas vraiment le code et ne sais pas ce que je dois modifier et/ou supprimer pour l'appliquer à mon cas.

Je vous joins le fichier qui permet, lorsque le nom des onglet est modifié, de mettre à jour les lien hypertextes.

Merci d'avance,

Bonne journée

TITOY

 

[Titoy]

Re : Mise à jour de Lien hypertexte dans un classeur

Un autre petit fichier qui explique plus précisément ce que j'essai de faire

 

[tototiti2008]

Re : Mise à jour de Lien hypertexte dans un classeur

Bonjour Titoy,

le code modifié :

Sub MAJ()
Sheets(2).Name = [a5]
Range("H9").Hyperlinks(1).SubAddress = "'" & Range("a5").Value & "'!A1"
Sheets(3).Name = [a6]
Range("I9").Hyperlinks(1).SubAddress = "'" & Range("a6").Value & "'!A1"
Sheets(4).Name = [a7]
Range("J9").Hyperlinks(1).SubAddress = "'" & Range("a7").Value & "'!A1"
Sheets(5).Name = [a8]
Range("K9").Hyperlinks(1).SubAddress = "'" & Range("a8").Value & "'!A1"
Sheets(6).Name = [a9]
Range("L9").Hyperlinks(1).SubAddress = "'" & Range("a9").Value & "'!A1"
Sheets(7).Name = [a10]
Range("M9").Hyperlinks(1).SubAddress = "'" & Range("a10").Value & "'!A1"
Sheets(8).Name = [a11]
Range("N9").Hyperlinks(1).SubAddress = "'" & Range("a11").Value & "'!A1"

End Sub

doit fonctionner, même si une boucle pourrait être intéressante ici...

 

[Titoy]

Re : Mise à jour de Lien hypertexte dans un classeur

Bonsoir TOTOTITI,

C'est exactement cela !

MErci pour ton aide !

A bientôt sur XLD

Bonne soirée

 

[Titoy]

Re : Mise à jour de Lien hypertexte dans un classeur

Problème Résolue

MErci