Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lien hypertexte

  • Initiateur de la discussion Initiateur de la discussion julian08
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

julian08

Guest
Bonjour à tout le forum,

Voila j'au un classeur excel avec des liens hypertexte qui pointent sur des fichiers se trouvant dans un dossier bien definit.
alors voila ma structure :
1 classeur excel
1 dossier comprenant 5 fichiers ( word, tif, jpeg. etc..)
dans mon classeur excel j'ai crée des liens qui ouvre ses fichiers avec le programme aproprié.

Mon probleme est le suivant.
Tout marche bien jusquau moment ou je decide de changer de place mon dossier.
ex: il se trouve sur c:\\documents et je le met dans c:

Quand je rouvre mon classeur excel et que je clic sur mon lien,patatra il a perdu le chemin, normal me direz vous.

Ya t'il un moyen pour que quand je change mon dossier de place, les liens hypertexte suivent le changement du dossier.
Ou ya t'il un autre moyen que les liens hypertexte.

j'ai essayé en inserant mes fichiers comme des objets.
Ca marche impecable mais mon fichier excel passe de 148Ko à 50Mo.

Merci de votre aide.
 
Salut,

Vite fait, j'ai bricolé ceci tirée d'une vielle appli que je ne peux mettre en ligne ...
à coller dans un module standard

'C:\\test ets le chemin qu'on veut modifier par D:\\Zon

Sub Princ()
Hyperf [A1:C15], 'C:\\Test\\', 'D:\\Zon\\'
End Sub


Sub Hyperf(Plage As Range, ByVal Dossier$, ByVal Nouveau$)
Dim H As Hyperlink
For Each H In Plage.Hyperlinks
With H
.Address = Application.Substitute(.Address, Dossier, Nouveau)
.TextToDisplay = Application.Substitute(.TextToDisplay, Dossier, Nouveau)
End With
Next H
End Sub

si soucis n'hésites à demander...

A+++
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
595
C
Réponses
2
Affichages
6 K
Compte Supprimé 979
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…