(VB Excel) lien hypertexte automatique

Lien

jpls -
Isa73 - 3 oct. 2015 à 17:39

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

Afficher la suite

A voir également:

Lien hypertexte excel automatique
Lien copié - Forum Téléphones & tablettes Android
Lien url - Guide
Créer un lien pour partager des photos - Guide
Liste déroulante excel - Guide
Renommer un lien hypertexte - Forum Réseaux sociaux

6 réponses

Réponse 1 / 6

JPLS Messages postés 1 Date d'inscription Statut Membre Dernière intervention 21

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

flo

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

Takius

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

Thordek

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 ?

userinfoman Messages postés 2 Date d'inscription Statut Membre Dernière intervention

Bonjour
Je fais en doublant les parenthèses:
=LIEN_HYPERTEXTE((RECHERCHEV($A2;[classeur.xlsx]feuille!$B:Z;25;0)))

Réponse 2 / 6

JvDo Messages postés 1978 Date d'inscription Statut Membre Dernière intervention 859

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

Isa73

Merci! Même si ce post est extrêmement vieux... Après des heures de recherches , tu viens de me sauver la vie!

Réponse 3 / 6

lyly

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.

kiki

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

didou > kiki

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

(VB Excel) lien hypertexte automatique

6 réponses

Votre réponse

Discussions similaires