Ver originales (Francés)

Modificación masiva de hipervínculos en Excel

thijama67 -  

Hola, tras una modificación (adición de un directorio en una estructura de carpetas), mis hipervínculos en mi hoja de cálculo de Excel ya no funcionan, ya que intentan abrir un archivo que ha cambiado de directorio.

Soy muy novato en macros, he intentado muchas cosas y debo admitir que estoy un poco (bueno, mucho) atascado.

Este era mi hipervínculo anterior donde estaban almacenados mis archivos:

C:\Users\XXXX\SynologyDrive\ZZ-AAAA\Chrono admin et tech\Chrono admin\" . D

Este es mi nuevo hipervínculo donde ahora están almacenados mis archivos:

C:\Users\XXXX\SynologyDrive\ZZ-AAAA\Chrono admin et tech\Chrono admin\2022". Mis archivos ahora están todos en este nuevo directorio "2022", de hecho, he organizado mis archivos por año para distinguir 2021 y 2022.

Tengo alrededor de 5000 hipervínculos que modificar, ¿podría por favor orientarme sobre una manera de modificar cada enlace para que al hacer clic en él, el enlace se abra correctamente, sin tener que modificarlos uno por uno?

Le agradezco infinitamente por su ayuda.

Atentamente

Stéphane


5 respuestas

  2. thijama67 Autor

    Buenas noches, gracias por este enlace. Funciona, sin embargo al modificarlo afecta a todos los enlaces que están en las otras hojas del libro.

    Ya lo había intentado en vano.

    Me había inclinado más por una macro, sin embargo admito que no domino en absoluto las macros.

    0
    1. yclik

      Hola

      intenta haciendo Buscar/Reemplazar

      buscar

      Chrono admin\

      reemplazar por

      Chrono admin\2022

      0
      1. thijama67 Autor

        hola, gracias por esta información, lo intenté pero la función de buscar y reemplazar no leerá en el hipervínculo y por lo tanto no encuentra el término a cambiar

        .

        0
        2. cousinhub29

          Hola,

          Prueba en:

          - Abriendo el editor VBA (Alt + tecla F11)

          - Inserción/Módulo

          - Pegando este código en el nuevo módulo:

           Sub modif_liens() Dim Hpl As Hyperlink Dim Old_Chm As String, New_Chm As String 'Antiguo camino y Nuevo camino Old_Chm = "Chrono admin\": New_Chm = "Chrono admin\2022\" For Each Hpl In Sheets("Feuil1").Cells.Hyperlinks 'Atención con el nombre de la hoja Hpl.Address = Replace(Hpl.Address, Old_Chm, New_Chm) Next Hpl End Sub

          Luego, después de haber hecho clic en medio del código, presiona la tecla F8 (modo paso a paso) y F5 (desplegar todo el código)

          Haz una prueba en una copia, por supuesto

          Buena suerte

          0