Foro Excel

Que tal amigos del foro...

Una vez más molestandolos con un ejercicio simple, pero que no he podido resolver , necesito crear una carpeta con cierto nombre pero que siempre la cree en el tapiz de windows, es decir que desde cualquier computadora que corra mi macro cree dicha carpeta pero con el path correcto hacia el tapiz de windows, creo que no es dificil pero no he encontrado nada con que resolverlo, de antemano gracias y saludos desde México D.F.!!!

Sub Crear_carpeta_en_escritorio()
Dim CrearObjeto As Object
Set CrearObjeto = CreateObject("WScript.Shell")
Direccionescritorio = CrearObjeto.SpecialFolders("Desktop")
Set CrearObjeto = Nothing
Set CrearObjeto = CreateObject("Scripting.FileSystemObject")
j = Direccionescritorio & "\" & "Nombre carpeta"
Set a = CrearObjeto.Createfolder(j)
Set CrearObjeto = Nothing
End Sub

Sustituye "Nombre carpeta" segun tus necesidades.

Un saludo

Sub Crear_carpeta_en_escritorio()
Dim CrearObjeto As Object
Set CrearObjeto = CreateObject("WScript.Shell")
Direccionescritorio = CrearObjeto.SpecialFolders("Desktop")
Set CrearObjeto = Nothing
MkDir Direccionescritorio & "\" & "Nombre carpeta"
End Sub

Mas facil todaví­a.

Un saludo

Sub Crear_carpeta_en_escritorio()
Dim CrearObjeto As Object
Set CrearObjeto = CreateObject("WScript.Shell")
Direccionescritorio = CrearObjeto.SpecialFolders("Desktop")
Set CrearObjeto = Nothing
ChDir Direccionescritorio
MkDir "Nombre carpeta"
End Sub

Otra variante para que se te quede seleccionado la carpeta del escritorio.

Un saludo

Que tal, jbf99

Gracias por tu aportación, ya lo adapté a mi macro y corre como yo queria , gracias nuevamente por tu pronta respuesta, estamos en contacto...