tengo un problema en optimizar esta macro, la cuestión es que la utilizó en carpetas y archivos con nombre y ubicación diferentes, entonces cada vez que la voy a utilizar debe reemplazar la ruta manualmente entrado en el módulo de programación en vba, quiero poder que esto se haga de forma más automática es decir con un cuadro de diálogo o poder identificar la ruta según la ubicación del archivo access e incluirla en la línea necesaria, la macro que estoy utilizando es la siguiente
Sub consultarSIGSDM_SEN_CONTENIDO_TABLERO()
Dim cn As Object
Dim datos As Object
Dim consultaSql As String
Dim conexion As String
Dim cont As Long
Set cn = CreateObject("ADODB.Connection")
conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\Users\Hp\Desktop\ASIGNACION_MAYO_KR\192.168.100.105informacion_sdm_dcvtCTO_092_2007APROBADOS\ZE_06_126\ZE_06_126.mde"
consultaSql = "Select * from SIGSDM_SEN_CONTENIDO_TABLERO;"
cn.Open conexion
Set datos = cn.Execute(consultaSql)
cont = 3
Do While Not datos.EOF
Cells(cont, 3) = datos.Fields("INTERNO_TABLERO")
Cells(cont, 4) = datos.Fields("INTERNO_SENAL").Value
Cells(cont, 5) = datos.Fields("INTERNO_TIPO_FLECHA")
Cells(cont, 6) = datos.Fields("INTERNO_LEYENDA")
cont = cont + 1
datos.MoveNext
Loop
datos.Close
Set datos = Nothing
cn.Close
Set cn = Nothing
End Sub