Transformer contenu cellule en lien hypertext

Résolu/Fermé

Excel
Lien

hichamzone - 28 mai 2007 à 10:59
usulfr - 12 déc. 2008 à 10:18

Bonjour à tous

je suis bloqué sur excel !

Problème : j'ai créé un bouton excel qui me permet d'ouvrir une fenetre de sélection pour récupérer le chemin d'accès d'un autre fichier excel. J'arrive à afficher le chemin d'accès dans la cellule voulue mais j'aimerai transformer ce chemin (contenu de la cellule) en un lien hypertexte comme ça on peut ouvrir le fichier en cliquant sur la cellule.

Est ce que quelqu'un a une idée ?

Merci d'avance

A voir également:

Excel transformer texte en lien hypertexte
Liste déroulante excel - Guide
Formule excel si contient texte alors texte ✓ - Forum Excel
Lien url - Guide
Verifier un lien - Guide
Excel cellule couleur si condition texte - Guide

4 réponses

Réponse 1 / 4

usulfr
12 déc. 2008 à 10:18

Argh, j'ai horreur des macros (sûrement parce que je ne les maîtrise pas et qu'on passe plus de temps à débugger qu'à utiliser... ;-) !

Bon pour faire simple, j'utilise la fonction lien_hypertexte de la façon suivante (mes urls sont dans la colonne A par ex)
=LIEN_HYPERTEXTE(A1;"lien") en B1 et on copie jusqu'au bout de la liste.
La colonne B aura alors une succession de mots "lien" qui permettent de cliquer et d'accéder directement à l'url par le navigateur par défaut.

Réponse 2 / 4

hichamzone
28 mai 2007 à 11:39

c bon j'ai trouvé, j'ai testé et ça marche impecable

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="cell(i,j).value"

sachant que le contenu de cell(i,j) est le chemin d'accès que je récupère depuis la fenetre de sélection (parcourir) avec le code :

Fichier = Application.GetOpenFileName("procédures(*.xls),*.xls")

i = 7
For j = 3 To 9
ActiveWorkbook.Worksheets("page 2").Cells(i, j).Value = Fichier

Je donne le code complet et commenté au cas ou quelqu'un d'autre en a besoin :

Private Sub Browse_Click()
'Browse (parcourir) est un bouton de commande
Dim Fichier As Variant
Dim cell As Range

'Affichage de la la boîte de dialogue standard "Ouvrir" pour sélectionner un fichier excel
'sur le disque dur.
'GetOpenFilename permet de lire le nom du fichier sélectionné par l'utilisateur sans
'réellement ouvrir le fichier.

Fichier = Application.GetOpenFileName("procédures(*.xls),*.xls")

'affichage du chemin d'accès dans la cellule voulue
i = 7
For j = 3 To 9
ActiveWorkbook.Worksheets("page 2").Cells(i, j).Value = Fichier

Next

' transformer le contenu de la cellule en lien hypertexte cliquable

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="cell(i,j).value"

End Sub

Merci quand meme Jeff

Discussions similaires

Comparer 2 listes de 2 colonnes sur excel

Excel : colorer une cellule sous condition d'une autre ?

probleme affichage excel

Excel: Coloriser ligne/contenu d'1 cellule

excel : fusionner en gardant toutes les données

Excel : Mise en forme conditionnelle selon une autre cellule

Discussions similaires

Newsletters