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

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

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

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