Recuperar ruta con valor de celda Excel VBA
Resuelto
atoch
Mensajes publicados
3
Estado
Miembro
-
atoch Mensajes publicados 3 Estado Miembro -
atoch Mensajes publicados 3 Estado Miembro -
Hola a todos,
tengo un problema de ruta en mi archivo de Excel 2013
tengo una carpeta_modelo de Windows con un archivo de Excel en una subcarpeta
copio una carpeta_modelo de Windows desde mi hoja de Excel, con valores de celdas.
para mantenerme en la estructura de mi empresa, necesito añadir una coma y un guion en el nombre de la carpeta. lo que da por ejemplo: "D:\" & Range("D3") & "," & " " & Range("P3") & " " & Range("F4") & "-" & Range("U4"). es importante saber que los valores de las celdas son variables en función de cada carpeta.
resultado ej: ciudad, obra 112636-GC
hasta aquí no hay problema.
Después quiero buscar la carpeta de Windows que tiene un nombre casi similar, por ejemplo: "D:\" & Range("D3") & "," & " " & Range("P3") en la que se encuentran archivos tipo jpg, excel, correo, etc.
quiero copiar estos archivos en mi subcarpeta "venta de mi carpeta creada.
con un msgbox para preguntar: "¿desea copiar los archivos?" sí o no
gracias de antemano por su ayuda
cordialmente atoch
tengo un problema de ruta en mi archivo de Excel 2013
tengo una carpeta_modelo de Windows con un archivo de Excel en una subcarpeta
copio una carpeta_modelo de Windows desde mi hoja de Excel, con valores de celdas.
para mantenerme en la estructura de mi empresa, necesito añadir una coma y un guion en el nombre de la carpeta. lo que da por ejemplo: "D:\" & Range("D3") & "," & " " & Range("P3") & " " & Range("F4") & "-" & Range("U4"). es importante saber que los valores de las celdas son variables en función de cada carpeta.
resultado ej: ciudad, obra 112636-GC
hasta aquí no hay problema.
Después quiero buscar la carpeta de Windows que tiene un nombre casi similar, por ejemplo: "D:\" & Range("D3") & "," & " " & Range("P3") en la que se encuentran archivos tipo jpg, excel, correo, etc.
quiero copiar estos archivos en mi subcarpeta "venta de mi carpeta creada.
con un msgbox para preguntar: "¿desea copiar los archivos?" sí o no
gracias de antemano por su ayuda
cordialmente atoch
3 respuestas
-
Hola,
vé esto para recorrer un directorio:
https://excel.developpez.com/faq/?page=FichiersDir#BoucleFichiers
y esto para copiar los archivos:
https://excel-malin.com/tutoriels/vba-tutoriels/manipulation-basique-des-fichiers-en-vba/
y los MsgBox de elección:
https://www.excel-pratique.com/fr/vba/boites_de_dialogue.php
-
Hola,
gracias por la información y el enlace.
mi problema es la ruta de la carpeta:
ruta de la carpeta de origen =("D:\" & Range("D3") & "," & " " & Range("P3"))
o
ruta de la carpeta de destino :
("D:\" & Range("D3") & "," & " " & Range("P3") & " " & Range("F4") & "-" & Range("U4") & " \ Venta")
estas 2 rutas no apuntan a su carpeta respectiva.
hay un error en algún lugar, pero no sé dónde.
si tiene alguna idea...
cordialmente -
Hola El Pájaro Carpintero,
he resuelto mi problema.
al reemplazar &"," por el valor de mi celda &range("O3")& todo ha vuelto a la normalidad y mi ruta es correcta y la copia de los archivos se realiza.
El range("O3") en mi hoja de cálculo es: ,
gracias por tomarte el tiempo de ayudarme
cordialmente
