(VB Excel) lien hypertexte automatique

[Fermé]
Signaler
-
 Isa73 -
Bonjour,

Sous excel je cherche à programmer une macro qui génère des liens hypertextes automatiques sur la base d'un numéro saisi manuellement.
Je n'y arrive pas, pourtant je ne pense pas que ce soit bien difficiele :
- on saisi un numéro de courrier XXX
- création du lien hypertexte C:/blabla/truc/XXX
NB : le doc XXX existe déjà et toujours
Si quelqu'un a une idée je suis preneur
Merci d'avance
A voir également:

6 réponses

Messages postés
1
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
6 janvier 2006
22
Merci pour ta réponse JvDo.

En fait G résolu le problème sans macro en utilisant la fonction Lien_Hypertexte d'Excel.

A noter pour ceux que ça intéresse la syntaxe "&G5&" pour introduire la valeur de la cellule G5 dans le chemin utilisé pour le lien hypertexte
23
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41713 internautes nous ont dit merci ce mois-ci

Bonjour,

Pourriez vous dévelloper votre astuce pr génèrer des liens hypertextes automatiques sur la base d'un numéro sur feuille excel et nom de dossier saisi manuellement.
J'ai essayé "&cellule&" mais ca ne fonctionne pas.

Merci d'avance
Le sujet est vieux de deux ans, je viens de le remarquer, mais je poste quand même le code que j'ai trouvé pour générer un lien en fonction de la valeur d'une cellule ( je ne sais pas si c'est ce que les auteurs recherchaient mais bon...
"adresse/?=" & Cells(L , C)
où L =la ligne et C = la colonne
Je vois pas trop où ecrire ton code Takius, ce sujet m'interesse beaucoup car j'ai 800 cases à mettre en lien hypertexte.
Peux-tu dévelloper un peu toi aussi s'il te plait ?
Messages postés
2
Date d'inscription
jeudi 15 février 2007
Statut
Membre
Dernière intervention
27 août 2013

Bonjour
Je fais en doublant les parenthèses:
=LIEN_HYPERTEXTE((RECHERCHEV($A2;[classeur.xlsx]feuille!$B:Z;25;0)))
Messages postés
1978
Date d'inscription
mercredi 27 juillet 2005
Statut
Membre
Dernière intervention
28 septembre 2020
847
bonjour,

un bout de code que j'utilise :

For Each cell In Selection
adresse = cell.Offset(0, 1).Value
ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=adresse
Next

ce code travaille sur une sélection de cellules contenant les libellés.
il leur affecte le lien hypertexte qui se trouve dans la cellule à droite.

cordialement
Merci! Même si ce post est extrêmement vieux... Après des heures de recherches , tu viens de me sauver la vie!
Bonjour, novice en macro sous Excel, j'aimerais en programmer une pour créer des liens hypertextes : La première colonne de mon fichier Excel contient des noms de fichiers (environ 2000 noms différents) et j'aimerais pouvoir les ouvrir directement à partir d'Excel. Comment faire pour programmer une macro qui crèe automatiquement ces liens (car Excel les perd régulièrement).

Merci de votre aide.
1) - Pour ne pas perdre tes liens il faut aller dans Outils, Options, onglet "Géneral", bouton "Option web", et décocher "mettre à jour les liens lors de l'enregistrement"

2) - Voici une macro que j'utilise
Principe :
La colonne B contient le chemin complet + le nom du fichier.
La macro crée un lien à partir de ces données de la 2ème ligne jusqu'à la fin.

Si le nom du fichier se trouve dans la colonne A alors il faut remplacer b par a et choisir la 2ème option en remplacant C:\temp\ par ton chemin.

Dim Lien
Selection.End(xlDown).Select
fin = Selection.Row
For i = 2 To fin
Range("b" & i).Select
Lien = Range("b" & i).Value
If Lien = "" Then GoTo retour
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Lien

'2ème option : ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\temp\" & Lien
retour:
Next
End Sub
Merci beaucoup. Aprè qques ajustements, début et fin macro, votre macro marche à merveille et c'est très précieux pour le classement et la visualisation de photos à partir d'un tableau EXCEL les classant par thèmes.

Vous m'avez rendu un sacré service

Didou
pour ceux qui lisent ce poste pour eviter de faire boucler jusqu'au nombre max de ligne placer la fonction "retour:" apres "next":
j'ai essayé avec une bouton de commande et c'est parfait ca s'arrete à la dernière cellule saisie ;)
bonjour je peut savoir comment faire un lien hypertext entre word et excel et comment ouvrir des feuilles a partir le word s'il vous plaît j'ai besoin de le connais
merci de votre aider
bye
Messages postés
46
Date d'inscription
lundi 15 décembre 2008
Statut
Membre
Dernière intervention
24 février 2009
1
désolé vieux sujet j'aurai pas du répondre