Insertar ruta en celda

[Salvador1]

Hola:

El archivo contiene un código para enviar email a través de Hotmail. En la celda "adjunto" hay que poner la ruta del archivo que quieres adjuntar, y solicito lo siguiente: crear un botón mediante el cual se abra una ventana, explores hasta llegar al fichero que se quiere enviar y, al aceptar, se inserte la ruta en la celda.

Ejemplo1.zip

[joshua]

Saludos.

Prueba y comentas.

Sub Ruta_Archivo()
ActiveCell = Application.GetOpenFilename( _
            FileFilter:="Excel 97-2003 Files (*.xls), *.xls", _
            Title:="Select a file or files", _
            MultiSelect:=True)
If ActiveCell = False Then: ActiveCell = ""
End Sub
[/PHP]

Atte.

joshua

[Salvador1]

¡Sí, señor! Eficaz y rápido.

PD: he borrado la 3ª línea para poder adjuntar otro tipo de archivos (fotos,...).