............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

SOY NUEVO ME PODEIS AYUDAR

Ver el tema anterior Ver el tema siguiente Ir abajo

SOY NUEVO ME PODEIS AYUDAR

Mensaje por jordi sanchez ferre el Sáb Mayo 05, 2012 6:51 am

Estoy creando esta macro y quiero abrir un fichero de una carpeta que no cambia (promociones) y una subcarpeta que esta vinculada a una celda. el problema es que cuando añado el fichero (seguimiento promoción.xls) me da error. Supongo que escribo mal el comando.


ChDir "C:\PROMOCIONES\" & Range("d2").Value
Workbooks.Open Filename:= _
"C:\PROMOCIONES\" & Range("d2").Value\Seguimiento Promoción.xls"

Gracias por la ayuda

jordi sanchez ferre

Masculino Cantidad de envíos : 3
Edad : 62
Ciudad - Pais : barcelona
Version de Excel : 2007
Fecha de inscripción : 05/05/2012

Volver arriba Ir abajo

Guardar fichero con nombre y fecha

Mensaje por icehell el Sáb Mayo 05, 2012 8:28 am

Prueba esto, adaptalo a tu gusto
Código:
Sub SAVE_FILE_NAME_DATE()
'Tendras que crear antes la Carpeta
'donde se guardaran todos los archivos con los cambios
 
'Ruta donde está dicha carpeta
    Const PRUEBAS = "C:\Users\usuario\Contacts\PRUEBAS\"

'Menú de confirmación
    If MsgBox("¿Quieres crear archivo nuevo?" & _
    "Guardar los cambios", vbQuestion + vbYesNo) = vbYes Then
         
    Dim Nombre As String
   
'Define el rango donde se encuentra el nombre que le darás al archivo
    Nombre = Range("A7").Value
   
    With ActiveWorkbook
    .SaveAs _
    PRUEBAS & Nombre & Format(Now, "yyyymmdd") & ".xltm"
 'Guarda el libro en C: con el NombreFechaExtencion
    MsgBox "Cambios guardados...", vbInformation
    End With
  'Cierra el libro al guardar los cambios
    ActiveWorkbook.Close
   
   
  End If
   
End Sub

No obstante en este foro creo que hay varias opciones más que puedes ir adaptando, échale un vistazo a esto
[Tienes que estar registrado y conectado para ver este vínculo]
avatar
icehell

Masculino Cantidad de envíos : 64
Edad : 43
Ciudad - Pais : Arrecife
Version de Excel : 2010
Fecha de inscripción : 26/11/2010

http://icehellsoftware.260mb.org/

Volver arriba Ir abajo

Re: SOY NUEVO ME PODEIS AYUDAR

Mensaje por GalileoGali el Sáb Mayo 05, 2012 8:31 am

!) Bienvenido

2) Prueba esto

Workbooks.Open Filename:= _
"C:\PROMOCIONES\" & Range("d2").Value & "\Seguimiento Promoción.xls"

3) Veo que tienes claro el manejo fundamental. Los problemas de sintaxis, aun cuando nos han dado grandes dolores de cabeza, no constituyen la materia central, sino algo meramente instrumental y por ende, hay que armarse de paciencia hasta que uno se habitúa. Digamos que automatizarse en sintaxis es buena practica, en cambio a la hora de estrcuturar y programar es mejor una mente creativa y libre....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: SOY NUEVO ME PODEIS AYUDAR

Mensaje por jordi sanchez ferre el Sáb Mayo 05, 2012 11:34 am

No me lo abre, me da error 1004.

Gracias, pero no me salgo estoy en un bucle.

Tienes alguna alternativa


jordi sanchez ferre

Masculino Cantidad de envíos : 3
Edad : 62
Ciudad - Pais : barcelona
Version de Excel : 2007
Fecha de inscripción : 05/05/2012

Volver arriba Ir abajo

Re: SOY NUEVO ME PODEIS AYUDAR

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.