Hola! Pasote. Puedo sugerirte lo siguiente:
a) En un archivo de texto como:
Y:\MiCarpeta.txt
podrías tener un solo dato: el nombre de la carpeta donde quieres ir a buscar a tus archivos de nombre
prueba.doc.
b) Por otro lado debes tener un archivo excel con una fórmula como la que te indica
jchuk, es decir:
=HIPERVINCULO("Y:\documento\" & A1 & "\prueba.doc")
c) Haz clic en el nombre de la hoja donde quieres el efecto (abajo a la izquieda) y selecciona:
Ver código.
d) En la ventana que te aparecerá, copia y pega lo siguiente:
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Open "Y:\MiCarpeta.txt" For Output As #1
Print #1, [A1]
Close #1
End Sub
(Nota que dos veces se hace alusión a la celda $A$1 como contenedora del dato variable)
e) Vuelve al Excel y presiona simultáneamente las dos teclas: <Alt> <F8>
En nombre de la macro escribe:
Auto_Open y selecciona:
Crear.
f) Te aparecerá una ventana con:
que reemplazarás totalmente por
Código:
Sub Auto_Open()
Open "Y:\MiCarpeta.txt" For Input As #1
Input #1, Linea
Close #1
[a1] = Linea
End Sub
g) Cierra todas las ventanas del ambiente Visual Basic for Application en el que te encuentras y retorna al Excel.
A partir de entonces, cada vez que cambies el valor de la celda
A1 se modificarán tanto el hipervínculo que tienes a través de la fórmula, como el contenido del archivo
Y:\MiCarpeta.txt.
De mismo modo, cada vez que modifiques (manualmente) el contenido del archivo
Y:\MiCarpeta.txt, verás que al abrir (o sea que estará cerrado) tu archivo Excel, verás que se ha modificado el contenido de la celda
A1.
Comenta como te ha ido con lo expresado, por favor.
Saludos, Cacho.
