Macro que funciona en dos pc si y otros dos no

[luismi....@gmail.com]

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

[julian-vlc-sp]

===========================================
¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
===========================================

En los que falla mira el código en la ventana de edición de VBA a ver te
falta alguna referencia.

SALUDOS.
Julián-Valencia-España
http://www.tinyurl.com/julianvalencia

<luismi....@gmail.com> escribió en el mensaje
news:3557007e-6594-44ec...@33g2000yqm.googlegroups.com...

[luismi....@gmail.com]

hola

ya habia marcado donde está el error, pero no se veia muy claro.

.SaveAs Replace(ThisWorkbook.Name, ".xls", "") & " " & Range("a10")
& " " & strdate & ".xls" '(error 1004)

-------------------------------------------------------------
error en tiempo de ejecución 1004

causas posibles:

-no encuentra la ruta
-otra aplicación esta usando ese libro
-ya existe otro libro con ese nombre
---------------------------------------------------------------
la macro esta copiada tal cual (copy-paste)

julian-vlc-sp ha escrito:

> ===========================================
> �Importante!: Colabora con el grupo.Contesta a este mensaje

> y dinos si te sirvi� o no la respuesta dada. Muchas gracias.
> ===========================================
>
> En los que falla mira el c�digo en la ventana de edici�n de VBA a ver te
> falta alguna referencia.
>
>
> SALUDOS.
> Juli�n-Valencia-Espa�a
> http://www.tinyurl.com/julianvalencia
>
>
> <luismi....@gmail.com> escribi� en el mensaje

> news:3557007e-6594-44ec...@33g2000yqm.googlegroups.com...
> 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

> Igual la macro est� bien y es problema de configuracion de esos dos

[Héctor Miguel]

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

[luismi....@gmail.com]

On 20 mar, 00:13, "Héctor Miguel" <NOhemiordiS...@PLShotmail.com>
wrote:

> > -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

[luismi....@gmail.com]