Foro Excel

Tengo una macro que me crea una hoja nueva llamada "Pauta mes actual.xls", pero que me la crea en un determinado lugar del disco duro, entoces me surge el problema que si lo hago desde otro ordenador y no tiene esa carpeta creada, no me funciona la macro, por que me dice que no existe la carpeta determinada por mi, entonces me gustarí­a saber, si es posible, poder crear una determinada carpeta en el disco duro de cualquier ordenador desde Excel.

Espero te guie esto:

If Dir("C:\Documents and Settings\Mariano\Escritorio") = "" Then
MsgBox "directorio no existe"
ChDrive "C"
ChDir "C:\Documents and Settings\"
MkDir "Mariano"
chrdir "C:\Documents and Settings\Mariano\"
' ect...
End If
Lo que no creo conveniente es crear esas carpetas en Documen..., por ser del S.O, poné tus xls en alguna parte del disco C:

Salu2.xls

Muchas gracias, Adrian, por la macro mandada que funciona perfectamente si el directorio creado no existe, pero en el momento que la primera vez lo ha creado, cuando lo intentas por segunda vez te da problema en la funcion MkDir "c:\Pauta", que es el directorio que ya la primera vez lo creo.

Es una ayuda:

If Dir("C:\Pauta") = "" Then
'Directorio no existe
ChDrive "C" 'me ubico en c para crearlo
MkDir "Pauta" ' lo creo
ChDir "C:\Pauta\" 'ingreso a él
MkDir "Mariano" 'creo una sub carpeta dentro de c:\Pauta
chrdir "C:\Pauta\Mariano\"
Else 'existe c:\pauta, pero no se si existe "Mariano"
If Dir("c:\Pauta\Mariano") = "" Then
'no existe Mariano dentro de c:\Pauta, lo creo
ChDir "c:\Pauta\" 'ingreso o tomo opr las dudas no este "parado" allí­
MkDir "Mariano"
End If
End If

Atte.

Adrian, la macro funciona perfectamente si todaví­a no existe el directorio c:\Pauta\pauta mensual.xls, pero en el momento que ya existe el directorio sigue dando problema en el mkdir Pauta, por que creo que vuelve a intentar crearlo, pero como ya existe el directorio, se para en "mkdir Pauta", y no salta a la Instrucción Else´

Un saludo

Adrian lo he solucionado cambiando el orden de los "if".
If Dir("c:\Pauta\") <> "" Then
ChDir "c:\Pauta\" 'ingreso o tomo opr las dudas no este "parado" allí­
Else
If Dir("C:\Pauta") = "" Then
MsgBox "Directorio no existe"
ChDir "C:\" 'ChDir "C:\Pauta" para ponerse en un directorio que ya existe
MkDir "Pauta"
ChDir "C:\Pauta\"
End If
End If

Muchas gracias por tu amiga

Adrian me surge otra pregunta en realidad el nombre que quiero ponerle al archivo por ejemplo es Pauta mensual, y dependiendo del mes y año que sea el cual se encuentra en una celda el mes y el año en otra, y suponiendo que es la pauta del mes octubre 2006, me archive automaticamente el archivo como Pauta Mensual octubre 2006.xls, en el que octubre(puede ser una celda A20) y el año (puede ser una celda b20).

Gracias

Ver ahora:

Sub CreaDir()
If Dir("C:\Pauta\", vbDirectory) = "" Then
'Directorio no existe
ChDrive "C" 'me ubico en c para crearlo
ChDir "C:\"
MkDir "Pauta" ' lo creo
ChDir "Pauta" 'ingreso a él
MkDir "Mariano" 'creo una sub carpeta dentro de c:\Pauta
ChDir "C:\Pauta\Mariano\"
End If
End Sub

Adrian, me parece que no has visto mi última pregunta la cual le de nombre dependiendo de el texto introducido en dos celdas de una hoja, lo que no se si es posible.