Sub sNombreFichero As String
Dim sAux As String
Dim sAux2 As String
sAux = sf.Year (sf.today())
sAux2 = sf.Month (sf.Today())
If sAux2.Length = 1 Then sAux2 = "0" & sAux2
sAux = sAux & sAux2
sAux2 = sf.DayOfMonth (sf.Today())
If sAux2.Length = 1 Then sAux2 = "0" & sAux2
sAux = sAux & sAux2
Return sAux
End Sub