Macro que funciona en dos pc si y otros dos no

19/03/2009 - 20:56 por luismi.facebook | Informe spam
Hola

Tengo la siguiente macro en un servidor de red que usamos cuatro
personas y para dos funciona perfectamente y para los otros dos da
error 1004. La macro "debe estar bien" pues funciona siempre para esos
dos usuarios y para los otros dos falla siempre al intentar enviar la
segunda hoja, para que les vuelva a funcionar tienen que cerrar todo
el excel y volver abrir.

Sub email()
'
' email Macro
' Macro grabada el 18/12/2008 por Luismi
If MsgBox("Esta a punto de envíar un correo automático, Para completar
esta operacion, Pulsar aceptar", vbOKCancel) = vbOK Then
Run ("ponerfecha")
ActiveSheet.Copy
ActiveSheet.Unprotect "True"
Selection.Locked = True
ActiveSheet.Protect "True"
Dim wb As Workbook
Dim strdate As String
Dim Direcciones As Variant
strdate = Format(Now, "dd-mm-yy h-mm")
Direcciones = Range("c2:c9")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs Replace(ThisWorkbook.Name, ".xls", "") & " " & Range("a10")
& " " & strdate & ".xls" '(error 1004)
.SendMail Direcciones, "Peticion transporte" & " " & Range("a10")
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("E1:F1").Select
Selection.ClearContents
Range("A15").Select
End If

'
End Sub

Igual la macro está bien y es problema de configuracion de esos dos
pc, alguien me puede ayudar? La macro la he creado en casa y tambien
funciona perfectamente.

Saludos
Luismi

Preguntas similare

Leer las respuestas

#1 luismi.facebook
23/03/2009 - 16:33 | Informe spam
On 20 mar, 19:07, wrote:
On 20 mar, 00:13, "Héctor Miguel"
wrote:





> hola, luis !

> hablando de archivos/carpetas/usuarios/... "en red"... nunca esta por de mas preguntar al administrador (p.e.)

> - no encuentra la ruta
> -> permisos/derechos/... de cada usuario/pc en relacion con la ruta

> - otra aplicacion esta usando ese libro
> - ya existe otro libro con ese nombre
> -> otro usuario grabando "al mismo tiempo" ???

> (tambien podrias comentar la version de excel donde ocurre la falla ?)

> saludos,
> hector.

> __ OP __

> > ya habia marcado donde esta el error, pero no se veia muy claro.

> >  .SaveAs Replace(ThisWorkbook.Name, ".xls", "") & " " & Range("a10")
> > & " " & strdate & ".xls"   '(error 1004)
> > -
> > error en tiempo de ejecucion 1004

> > causas posibles:

> > -no encuentra la ruta
> > -otra aplicacion esta usando ese libro
> > -ya existe otro libro con ese nombre- Ocultar texto de la cita -

> - Mostrar texto de la cita -



Hola

El tema de permisos/derechos para guardar libro no puede ser porque
usa una libreta que estan en C:/Progam files/commons files/system/
msmapi/3082 (esto es el disco duro de la máquina)

Hemos probado a entrar con la clave de un usuario que le funciona la
macro en una máquina que no funciona y da el mismo error.  Creo que el
fallo está en que crea dos libros que quiere guardar con el mismo
nombre o en el Saveas. que no está bien creado.

El sistema operativo es Windows 2000 profesional y el Excel 2003

Quizas se os ocurra otra forma de hacer los mismo mas facil

Saludos
Luismi
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida