retoque de macro

Hola de nuevo. Gracias a Héctor Miguel(thx), he
conseguido que la siguiente macro me funcione, pero

resulta que el resultado final que me da y que es:
BM20040213D.txt
No me sirve para el objetivo que busco y que es que la
hoja me localice de la red ese archivo de texto. Supongo
que el problema es debido a que está relacionado con una
fecha,pues si pulso en la celda sobre "BM20040213D.txt"
me apararece la fecha 13/02/04. ¿alguna solucion?

Sub Fecha_Formato()
Dim Fecha As String, Día As Integer, Mes As Integer,
Año As Integer
Fecha = InputBox("Fecha a actualizar")
Día = Right(Fecha, 2)
Mes = Mid(Fecha, 3, 2)
Año = Left(Fecha, 2)
With Range("B3")
.Value = DateSerial(Día, Mes, Año)
.NumberFormat = "dd/mm/yyyy"
End With
End Sub
.

... he conseguido que la siguiente macro me funcione
... ahora resulta que el resultado final que me da y que es: BM20040213D.txt
No me sirve para el objetivo que busco y que es que la hoja me localice de la red ese archivo de texto.
Supongo que el problema es debido a que está relacionado con una fecha,
pues si pulso en la celda sobre "BM20040213D.txt" me apararece la fecha 13/02/04. ¿alguna solucion?
... la macro es esta:
Sub Fecha_y_Formato()
Dim Fecha As String, Día As Integer, Mes As Integer, Año As Integer
Fecha = InputBox("Fecha a actualizar")
Día = Left(Fecha, 2)
Mes = Mid(Fecha, 3, 2)
Año = Right(Fecha, 2)
With Range("B3")
.Value = DateSerial(Año, Mes, Día)
.NumberFormat = """BM""yyyymmdd.txt"
End With
End Sub

hola, Pergo !

... he conseguido que la siguiente macro me funcione
... ahora resulta que el resultado final que me da y

No me sirve para el objetivo que busco y que es que la

Supongo que el problema es debido a que está

pues si pulso en la celda sobre "BM20040213D.txt" me

... la macro es esta:
Sub Fecha_y_Formato()
Dim Fecha As String, Día As Integer, Mes As Integer,

Fecha = InputBox("Fecha a actualizar")
Día = Left(Fecha, 2)
Mes = Mid(Fecha, 3, 2)
Año = Right(Fecha, 2)
With Range("B3")
.Value = DateSerial(Año, Mes, Día)
.NumberFormat = """BM""yyyymmdd.txt"
End With
End Sub

pues si... el 'problema' es que 'solicitabas' una fecha

la solucion es NO 'poner' la fecha con una 'mascara' [o

_______
Sub Archivo_a_buscar()
Dim Fecha As String, Día As Integer, Mes As Integer,

Fecha = InputBox("Fecha a actualizar")
Día = Left(Fecha, 2)
Mes = Mid(Fecha, 3, 2)
Año = Right(Fecha, 2)
Range("a3") = "BM" & Format(DateSerial(Año, Mes,

End Sub
šššššššššššš
saludos,
hector.


.

... habia dado muchas vueltas y no habia forma.