Ayuda - Path

Hola

Estoy intentando generar una macro para unos reportes consolidados, cada
Mi problema es como fijar el Path para que siempre se encuentre en el
mismo
directorio, sin importar que usuario lo consolide, ejemplo:
¿Como hago para referenciar siempre estás rutas?

Puedes intentarlo de dos formas
Opcion 1:
una que cada usuario seleccione los archivos mediante un dialogbox.
puede que te de error si la version de excel es anterior a la 2002 (no estoy
seguro???)
ver codigo 1

Opcion 2:
puedes hacerlo fijando que siempre esten los archivos a consolidar en la
misma carpeta que el archivo que lleva la macro, esto lo puedes combinar con
la definicion del mes y año que estes tratando o añadirlo a una ruta de red
de donde siempre tengas los archivos nuevos.

fichero = thisworkbook.path & "ombre de tu fichero"
Workbooks.Open fichero, ReadOnly:=True

si quieres detalles mas especificos, o algun comentario...

un saludo
juan


==Codigo 1
sub Prueba()
fichero=Importarfichero
If fichero = "" Then
MsgBox "Tienes que seleccionar un archivo", vbExclamation,
"¡¡ATENCION!!"
Exit Sub
End If
Workbooks.Open fichero, ReadOnly:=True
end sub

Public Function ImportarFichero() As String
Dim Filt As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As String

Filt = "Archivos Excel (*.xls),*.xls"
FilterIndex = 1
Title = "Selecciona un fichero para importar"
FileName = Application.GetOpenFilename _
(filefilter:=Filt, _
FilterIndex:=FilterIndex, _
Title:=Title)
If FileName = "Falso" Then
'MsgBox "No has seleccionado ningún fichero"
Exit Function
End If
ImportarFichero = FileName
End Function
==Fin Codigo 1