Seleccionar nuevo libro origen de datos

[pneox]

Tengo un libro excel (archivo destino) con una vinculación a otro libro. El archivo origen se actualiza cada 3 días y cambia de nombre, si bien se guarda en la misma carpeta que la versión anterior. Me gustaría poner un botón en el libro de destino, para que me salga la ventana de cambio de origen, y que yo sea yo el que pueda seleccionar el archivo que quiero. Es decir, sería como ir a "datos/editar vínculos/cambiar origen", y que se quede abierto el seleccionador de archivos de windows (si puede ser, en la ruta que siempre tengo los archivos actualizados).

Gracias.

 

[Gerson Pineda]

Hola 

Puedes utilizar el objeto 

Application.FileDialog(msoFileDialogFolderPicker)

 

Saludos 

[pneox]

Gracias por la respuesta. Perdona mi ignorancia, pero he intentado meterlo tal cual en una macro y no me funciona, ¿me podrías detallar un poco más como debo ponerlo?

Gracias de nuevo por tu ayuda.

[Gerson Pineda]

Hace 41 minutos , pneox dijo:

Gracias por la respuesta. Perdona mi ignorancia, pero he intentado meterlo tal cual en una macro y no me funciona, ¿me podrías detallar un poco más como debo ponerlo?

Gracias de nuevo por tu ayuda.

En este tema se utiliza, solo adapta al tuyo

 

Saludos

[pneox]

No consigo adaptarlo a mi caso.

He grabado la macro de lo que quiero hacer y me da lo siguiente:

Sub Macro1()
Macro1 Macro
ActiveWorkbook.ChangeLink Name:="C:\Users\Carpeta1\Archivo1.xlsx", NewName:= _
        "C:\Users\Carpeta1\Archivo3.xlsx", Type:=xlExcelLinks
End Sub

Pero lo que quiero es que en lugar de que siempre me actualice con datos del Archivo3.xlsx, se quede abierto el seleccionador de archivos para que yo pueda elegir el archivo que yo quiera (por ejemplo cuando se cambie a Archivo4.xlsx). No lo consigo hacer grabando macro, porque no me deja detener la grabación mientras tengo el cuadro de selección de archivo abierto.

Disculpa, seguro que es más bien mi desconocimiento, que no consigo adaptar la otra.

Gracias de nuevo.

 

[Haplox]

@pneox , una simple búsqueda en internet te lo habría solucionado

Dim directorio As String
    ' Abre el explorador'
    With Application.FileDialog(msoFileDia'logFolderPicker)
        .InitialFileName = "C:\" 'Directorio por defecto donde se abrirá el explorador'
        If .Show = -1 Then 'Al presionar OK'
            directorio = .SelectedItems(1)
        End If
    End With
    
    If directorio <> "" Then 'Si has seleccionado un archivo
        ' *********************
        ' tu código
        ' *********************
    End If

 

[Antoni]

Debería ser algo parecido a esto:

Sub CambiarLinks()
ChDir "C:\Users\Carpeta1"
Archivo = Application.GetOpenFilename("Archivos Excel (*.xls*), *.xls*")
If Archivo <> False Then
   With ActiveWorkbook
      .ChangeLink .FullName, Archivo, xlExcelLinks
   End With
End If
End Sub

 

[pneox]

Gracias a todos por las respuestas. Antoni, creo que lo tuyo se va acercando a lo que necesito, lo que pasa es que el libro que quiero actualizar tiene vínculos con varios libros distintos. No consigo que con la macro se actualice la vinculación de un archivo concreto. Es decir, tengo el "archivobase.xls" que tiene vínculos con los libros "datosA", "datosB", "datosC". Cada uno de los archivos de datos se va actualizando cada cierto tiempo, lo que conlleva un cambio de nombre, por ejemplo "datosA Agosto19" el mes que viene pasaría a llamarse "datosA Sept19". Lo que busco es una macro que me permita seleccionar el "datosA Sept19", actualizando los vínculos, y sustituyendo al "datosA Agosto19" (que tienen la misma estructura).

Lo mismo me pasaría con el resto de libros que se vinculan con el "archivobase.xls", pero sabiendo hacer la macro para uno, podría replicar la macro para el resto.

Gracias igualmente por el esfuerzo.

 

[Antoni]

Lo mismo, pero con selección múltiple de archivos.

Sub CambiarLinks()
Dim Archivos As Variant
ChDir "C:\Users\Carpeta1"
Archivos = Application.GetOpenFilename("Archivos Excel (*.xls*), *.xls*", MultiSelect:=True)
If IsArray(Archivos) Then
   For i = 1 To UBound(Archivos)
      With ActiveWorkbook
         .ChangeLink .FullName, Archivos(i), xlExcelLinks
      End With
   Next
End If
End Sub

 

[pneox]

¿Tengo que introducir en alguna parte del código el nombre del archivo que quiero actualizar? Poniéndolo tal cual, me sale el selector de archivos de windows, pero al elegir el nuevo archivo que quiero vincular se me desbarajusta todo. Es como si no supiese realmente cual es el archivo concreto que quiero actualizar, y sustituirlo por el nuevo.

Gracias.

 

[Antoni]

Creo que ahora si.

Importa el formulario Links del adjunto a tu archivo y pruébalo a ver que tal.

Para importar el formulario, abre el adjunto y tu archivo y arrastra el formulario.

 

Cambiar links.xlsm

[pneox]

Guau!! Antoni, funciona a la perfección y es justo lo que necesitaba. Voy a probarlo un poco más con archivos reales, pero en principio funciona bien. Muchisimas gracias por tu ayuda.

[pneox]

Antoni, perdona que te vuelva a molestar. ¿Sabes si puedo hacer que tu formulario se quede totalmente integrado en mi libro, sin que tenga que abrir el archivo que tú me has mandado? Gracias de nuevo.

[Antoni]

Hace 2 horas, Antoni dijo:

Creo que ahora si.

Importa el formulario Links del adjunto a tu archivo y pruébalo a ver que tal.

Para importar el formulario a tu libro, abre el adjunto y tu archivo y arrastra el formulario.