XL 2019 liens hypertexte

[gestionnaire]

Bonjour à tous,
Je reviens vers vous pour une nouvelle interrogation... J'ai un fichier "planning" dans lequel j'ai des liens hypertextes qui vont me chercher des valeurs dans un autre fichier qui contient des onglets nommés au nom des semaines. Chaque onglet contient un tableau identique et les valeurs a aller chercher sont toutes aux mêmes endroits. Le lien est donc toujours le même, il n'y a que le numéro de semaine qui change. Sur mon fichier "planning" on retrouve les n° de semaine.
Ma question est la suivante: n'y a-t-il pas moyen que le lien se modifie en fonction du numéro de semaine noté en haut de chaque semaine du "planning".
Je joins un fichier avec 3 semaines (le fichier original comprend toutes les semaines de l'année), les liens se trouvent a droite de Midi et Soir de chaque jours.
Merci d'avance pour votre aide

 

[job75]

Bonjour gestionnaire,

Liens hypertextes ? Il n'y en a aucun dans votre fichier !

A+

 

[gestionnaire]

Bonjour Job75,
effectivement, je viens de regarder ce qu'est un lien hypertexte...
en fait, ce sont les liens, les chemins ... qui sont dans les cellules h6, j6,h20, j20 etc... comme je le disais plus haut, à droite des cellule Midi et Soir.

 

[job75]

La fonction INDIRECT ne peut pas fonctionner sur des fichiers externes fermés.

Il faut donc modifier manuellement les formules en adaptant la semaine.

 

[gestionnaire]

bonjour à tous,
merci Job75 pour ta réponse.
par contre quelqu'un a t il une autre idée ? je le fais manuellement depuis des années et j'avoue que si je pouvais automatiser cette action je serai bien content...
bonne journée

 

[job75]

Bonjour gestionnaire,

par contre quelqu'un a t il une autre idée ? je le fais manuellement depuis des années et j'avoue que si je pouvais automatiser cette action je serai bien content...

Voyez cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [H5]) Is Nothing Then Exit Sub
Application.DisplayAlerts = False 'si la feuille n'existe pas
[H:J].Replace "S (*)", "S (" & CStr([A3]) & ")", xlPart
[U:W].Replace "S (*)", "S (" & CStr([N3]) & ")"
[AH:AJ].Replace "S (*)", "S (" & CStr([AA3]) & ")"
End Sub

Elle s'exécute quand on modifie la cellule H5.

A+

 

[gestionnaire]

Bonjour à tous,
Merci Job75, ta nouvelle réponse correspond à mon attente 👍
je viens de la copier sur mon fichier original et cela fonctionne très bien.
merci encore.