Ver originales (Francés)

VBA Crear carpetas a partir de celdas de Excel

Babayaga3001 Mensajes publicados 13 Estado Miembro -  
pilas31 Mensajes publicados 1878 Estado Colaborador -
Hola,

Me siento realmente tonta por hacer esta pregunta, pero he buscado en los sitios web y no logro encontrar la respuesta...

Tengo una lista de celdas con diferentes nombres y quiero guardar una carpeta con el nombre de cada celda (de A1 a A33), en la hoja "Feuil1". La carpeta en la que deseo guardar estos subdirectorios se llama "C:\Users\Marine\Dropbox".

¿Podrías indicarme cómo proceder, por favor?

¡Mil gracias!

Marine

7 respuestas

  1.
    pilas31 Mensajes publicados 1878 Estado Colaborador 648
     
    Hola,

    Aquí tienes un macro que debería funcionar: 
    Sub Crear_Directorios()
    Dim linea As Integer
    ChDir "C:\Users\Marine\Dropbox"
    For linea = 1 To 33
    MkDir Sheets("Hoja1").Cells(linea, 1).Value
    Next linea
    End Sub


    Atentamente,
    0