Transform cell content into a hypertext link Solved

Question

Hello everyone

I'm stuck on Excel!

Problem: I created an Excel button that allows me to open a selection window to retrieve the file path of another Excel file. I can display the file path in the desired cell, but I would like to turn this path (the content of the cell) into a hyperlink so that we can open the file by clicking on the cell.

Does anyone have any idea?

Thanks in advance

Configuration: Windows XP Internet Explorer 6.0

usulfr · Accepted Answer

Argh, I hate macros (probably because I don't master them and we spend more time debugging than using them... ;-) !

To keep it simple, I use the HYPERLINK function like this (my URLs are in column A for example)
=HYPERLINK(A1,"link") in B1 and then we copy it down the list.
Column B will then have a succession of the word "link" which allows you to click and access the URL directly in the default browser.

Jeff · Answer

It's not really what you're looking to do, but it can provide a good starting point for doing the reverse macro:  https://codes-sources.commentcamarche.net/#4 -- Jeff - Wm@Ccm -

hichamzone · Answer

Thank you,  but I have already tinkered with this macro and unfortunately without satisfactory results!

hichamzone · Answer

It's good, I found it, I tested it, and it works perfectly.

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

Knowing that the content of cell(i,j) is the path that I retrieve from the selection window (browse) with the code:

File = Application.GetOpenFileName("procedures(*.xls),*.xls")

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

I provide the complete and commented code just in case someone else needs it:

Private Sub Browse_Click()
'Browse (browse) is a command button
Dim File As Variant
Dim cell As Range

'Display the standard "Open" dialog box to select an Excel file
'on the hard drive.
'GetOpenFilename allows reading the name of the file selected by the user without
'actually opening the file.

File = Application.GetOpenFileName("procedures(*.xls),*.xls")

'display the path in the desired cell
i = 7
For j = 3 To 9
ActiveWorkbook.Worksheets("page 2").Cells(i, j).Value = File

Next

'convert the content of the cell into a clickable hyperlink

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

End Sub

Thanks anyway Jeff.

Transform cell content into a hypertext link

4 réponses

Texture issues in enshrouded

Driver his

Peritel to hdmi conversion

How to access the bios on a compaq notebook

Dsi won't turn on anymore

Search for a song with the lyrics

Left mouse click, touchpad click inactive

Codes stronghold crusader

Stuck computer system repair

Disable write protection mp3 player