Guardar archivo dependiendo del dia

[NancyFlores]

Tengo este codigo en vba

Dim dia As Integer
    Dim mes As Integer
    Dim anio As Integer
    dia = day(Date)
    mes = month(Date)
    anio = year(Date)
    fecha = mes & "_" & dia...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Select Case Weekday(Date, vbMonday)
   Case 1: MiPath = "C:\Lunes\"
   Case 2: MiPath = "C:\Martes\"
   Case 3: MiPath = "C:\Miércoles\"
   Case 4: MiPath = "C:\Jueves\"
   Case 5: MiPath...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[NancyFlores]

Select Case Weekday(Date, vbMonday)
   Case 1: MiPath = "C:\Lunes\"
   Case 2: MiPath = "C:\Martes\"
   Case 3: MiPath = "C:\Miércoles\"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[InfoCont1]

Hola Nancy y Antoni. Creo que se puede simplificar:

Public Function MiPath() As String
    MiPath = "C:\" & WeekdayName(Weekday(Date)) & "\"
End Function