Hola a todos

Necesito ayuda con un tema que me tiene de cabeza.

Tengo varios archivos de excel con macros en mi PC. Estos básicamente lo que hacen es tomar datos de otros archivos excel para formar un reporte o análisis. Los otros excel están también en mi pc o se pueden bajar de un programa llamado sap.

El problema es que como todos estos archivos se encuentran en mi pc, a la hora que yo ejecuto la macro se sale excelente todo. Pero estos archivos se encuentran en una carpeta compartida del trabajo y cuando otro usuario intenta ejecutar la macro esta le da un error por que no encuentra el excel especifico de donde tomar la información (pero toda la información esta en la carpeta compartida)

No se que tengo que hacer para que a los otro usuarios le funcione las macros igual que a mi.

Ejemplo

Así es como tengo mi VBA para que me abra un archivo con nombre Saldo 400

Workbooks.OpenText Filename:= _

"E:\Documents and Settings\caguilar1\Escritorio\Pruevas TRR\Saldo 400.XLS"

Gracias por toda la ayuda que me puedan brindar

Buenas, caguilar

Se me ocurren 2 posibles respuestas:

1.- Déjales tu PC.........jejejejejeje

2.- Por la línea de código que has adjuntado, ese archivo está en tu equipo, no en la red y por tanto los demás no pueden acceder a él....pues es propio de tu usuario de red.......(a caguilar1 no pueden acceder ellos)

Mira a ver si te sirve para modificar algo.....

Un saludo,

Tese

Que tal Caguilar:

Prueba con este, es uno que tengo en uso pero lo puedes adaptar a tu necesidad:

Sub Importartxt()

Dim Archivos

'ChDir ThisWorkbook.Path

ChDir "\\00.000.0.000\rpt$\2012\Reporteria"

Archivos=Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Seleccionar archivos", , True)

If IsArray(Archivos) = True Then

Sheets("Formato").Select

' Workbooks.Add

For X = 1 To UBound(Archivos)

ProcesarArchivo Archivos(X)

Next

' MsgBox "*** Se han procesado " & UBound(Archivos) & " archivos ***"

' Application.Dialogs(xlDialogSaveAs).Show

' ActiveWorkbook.Close

Call ChqsSBC_2daVer

Else

MsgBox "*** No se han seleccionado archivos. Proceso cancelado ***"

End If

End Sub

O también podría ser este que es muy similar:

Dim Archivos As String

'ChDir ThisWorkbook.Path

ChDir "\\00.00.00.000\rpt$\2012\Cat_ctas ICBS"

Archivos = Application.GetSaveAsFilename("Cat_Ctas " & Format(dia, "ddmmm´yy"), FileFilter:="Libro de Excel 97-2003 (*.xls), *.xls", _

Title:="Elige nombre y carpeta donde se guardara")

'If Archivos <> False Then

ActiveWorkbook.SaveAs (Archivos)

MsgBox "El libro se guardo en :" & Archivos

También podrías usar los cuadro de Dialogo, ejemplo:

ActiveWorkbook.Dialogs(xlDialogOpen).Show

Saludos ...

Hola

Muchas gracias por la ayuda.

Voy a intentar utilizar las todos sus consejos, y estaré comentando el resulto...