Excel - Fernando

Hola a todos, me gustaría preguntaros una cosa:

Tengo un libro1.xls con una serie de valores y una macro. Al ejecutar-la, esos valores se me copian a otro libro, el cual llamaré "NOMBRE_MES.xls".

Existen 12 libros "NOMBRE_MES.xls", uno para cada mes del año.

En el explorador de windows, he clasificado los años y los meses de esta manera:

- Carpetas de años: 2008, 2009, 2010, etc.

- Dentro de cada carpeta anual, las subcarpetas del mes correspondiente: 01 Enero, 02 Febrero, 03 Marzo, 04 Abril, etc.

Dentro de estas subcarpetas mensuales se hubica el libro "NOMBRE_MES.xls" con el nombre correspondiente de cada mes, es decir, enero.xls, febrero.xls, marzo.xls, abril.xls, etc.

La macro del libro1 no distingue el mes en el que estamos y ahora mismo

La he programado para abra una dirección concreta, en este caso, al archivo julio.xls, contenido en la carpeta 2009, para realice la copia de los valores contenidos en el libro1.xls. El libro1.xls siempre será el mismo.

El problema es cuando cambiemos de mes y de año.

No sé cómo hacer para que la macro detecte el mes y el año, y copie los valores en la carpeta y subcarpeta correspondiente.

¿Sabríais cómo hacerlo?

Muchísimas gracias

SALUDOS

con las siguientes funciones tenés los datos de la fecha actual
el resto -para asignar el nombre de archivo correcto- lo hacés con una estructura Select Case o If ... Else

d = Day(Now())
m = Month(Now())
y = Year(Now())

Saludos, desde Baires, JuanC

Te pongo el cófigo,que es sencillo, lo que tendría que hacer es abrir el archivo correspondiente al mes actual, y copiar unos valores, cerrar y guardar.

Para abrir un archivo en concreto sería así:

Workbooks.Open Filename:= _
"C: ueva carpeta a20097 julio a JULIO_2009.xls"

'en esta linia se copiaran unos valores y no he creído necesario poner la programacion, y luego:

ActiveWorkbook.Save
DisplayAlerts = False
ActiveWorkbook.Close

ya esta, sólo es eso. El problema es que el excel tiene que distinguir la carpeta del año, 2009, 2010, ect, y dentro de esta carpeta, distingir el mes correspondiente, y dentro de cada mes correspondiente abrir el archivo "ra NOMBREMES_AÑO.xls"
de la siguiente manera:

"C: ueva carpeta a20098 agosto a agosto_2009.xls"

"C: ueva carpeta a20099 septiembre a septiembre_2009.xls"

y cuando cambie de año, la dirección sera de esta forma

"C: ueva carpeta a20102 julio a FEBRERO_2010.xls"

Muchas gracias por tu ayuda

Lo siento, he visto que el slash vertical no aparece. aquí te lo vuelvo a dejar :

-------------------------------------------------------------------------------------------------------------
Te pongo el cófigo,que es sencillo, lo que tendría que hacer es abrir el archivo correspondiente al mes actual, y copiar unos valores, cerrar y guardar.

Para abrir un archivo en concreto sería así:

Workbooks.Open Filename:= _
"C: / nueva carpeta / datos / 2009 / 07 julio / datos JULIO_2009.xls"

'en esta linia se copiaran unos valores y no he creído necesario poner la programacion, y luego:

ActiveWorkbook.Save
DisplayAlerts = False
ActiveWorkbook.Close

ya esta, sólo es eso. El problema es que el excel tiene que distinguir la carpeta del año, 2009, 2010, ect, y dentro de esta carpeta, distingir el mes correspondiente, y dentro de cada mes correspondiente abrir el archivo "datos NOMBREMES_AÑO.xls"
de la siguiente manera:

"C: / nueva carpeta / datos / 2009 /08 agosto / datos agosto_2009.xls"

"C: / nueva carpeta / datos / 2009 / 09 septiembre / datos septiembre_2009.xls"

y cuando cambie de año, la dirección sera de esta forma

"C: / nueva carpeta / datos / 2010 / 02 febrero / datos FEBRERO_2010.xls"

Muchas gracias por tu ayuda

Sub test()
Dim sPath$
Dim sDia$, sMes$, sAnno$
'"C: / nueva carpeta / datos / 2009 /08 agosto / datos agosto_2009.xls"
sDia = Format(Day(Now()), "00")
sMes = MonthName(Month(Now()), False)
sAnno = Year(Now())

sPath = "C:/nueva carpeta/datos/" & sAnno & "/" & sDia & " " & sMes & "/datos " & sMes & "_" & sAnno & ".xls"
End Sub

Saludos, desde Baires, JuanC

Muchas gracias, me ha sido de gran ayuda tu aportación.

He modificado un poco la macro y me ha funcionado correctamente

Saludos