(VB Excel) lien hypertexte automatique

Fermé

Lien

jpls - 4 janv. 2006 à 15:04
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

A voir également:

Excel macro lien hypertexte automatique
Liste déroulante excel - Guide
Lien url - Guide
Verifier un lien - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Lien de rajout pour bara facebook - Forum Webmastering

6 réponses

Réponse 1 / 6

JPLS Messages postés 1 Date d'inscription mercredi 4 janvier 2006 Statut Membre Dernière intervention 6 janvier 2006 21
6 janv. 2006 à 17:37

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
28 avril 2008 à 15:13

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
24 juin 2011 à 09:25

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
5 juil. 2011 à 16:36

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 jeudi 15 février 2007 Statut Membre Dernière intervention 27 août 2013
27 août 2013 à 11:11

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 mercredi 27 juillet 2005 Statut Membre Dernière intervention 28 septembre 2020 856
4 janv. 2006 à 15:54

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
Modifié par Isa73 le 3/10/2015 à 17:40

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
16 févr. 2007 à 15:41

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
14 déc. 2007 à 13:59

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
12 févr. 2009 à 14:16

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

Discussions similaires

Lien hypertexte automatique

Excel: Copie automatique contenu de cellules

Transformer contenu cellule en lien hypertext

lien hypertexte en fonction valeur cellule

valeur cellule dans lien hypertexte excel

Insérer un lien Hypertexte cliquable ?

Discussions similaires

Newsletters