Recuperar ruta con valor de celda Excel VBA

Resuelto
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

3 respuestas

cs_Le Pivert Mensajes publicados 8437 Estado Colaborador 730
 
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

1
atoch Mensajes publicados 3 Estado Miembro
 
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
0
cs_Le Pivert Mensajes publicados 8437 Estado Colaborador 730
 


MsgBox "D:\" & Range("D3") & "," & " " & Range("P3") MsgBox "D:\" & Range("D3") & "," & " " & Range("P3") & " " & Range("F4") & "-" & Range("U4") & " \ Vente"


déjà ceci:

", "


@+ Le Pivert
0
atoch Mensajes publicados 3 Estado Miembro
 
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
0