Transformer contenu cellule en lien hypertext
Résolu/Fermé
hichamzone
-
usulfr -
usulfr -
A voir également:
- Lien hypertexte automatique selon contenu cellule
- Excel lien hypertexte contenu cellule - Meilleures réponses
- Excel transformer texte en lien hypertexte - Meilleures réponses
- Lien hypertexte en fonction valeur cellule - Forum - Bureautique
- Transformer contenu cellule en lien hypertext ✓ - Forum - Programmation
- Valeur cellule dans lien hypertexte excel ✓ - Forum - Excel
- Lien hypertexte automatique ✓ - Forum - Excel
- EXCEL : Lien hypertexte avec formule ✓ - Forum - Excel
4 réponses
usulfr
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.
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.
hichamzone
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
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
C'est pas vraiment ce que tu cherche à faire, mais ça peut donner une bonne base de départ pour faire la macro inverse :
https://codes-sources.commentcamarche.net/#4
https://codes-sources.commentcamarche.net/#4
