Ver originales (Francés)

Modificación masiva de hipervínculos en Excel

thijama67 Mensajes publicados 10 Estado Miembro -  
cousinhub29 Mensajes publicados 1113 Fecha de registro   Estado Miembro Última intervención   -

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

  1.
    The_boss_68 Mensajes publicados 959 Fecha de registro   Estado Miembro Última intervención   182
     

    Buenas noches,

    Quizás veas este enlace AQUÍ

    Saludos

    0
  2. thijama67 Mensajes publicados 10 Estado Miembro
     

    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
  3. yclik Mensajes publicados 3874 Fecha de registro   Estado Miembro Última intervención   1 609
     

    Hola

    intenta haciendo Buscar/Reemplazar

    buscar

    Chrono admin\

    reemplazar por

    Chrono admin\2022

    0
  4. thijama67 Mensajes publicados 10 Estado Miembro
     

    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
  6. cousinhub29 Mensajes publicados 1113 Fecha de registro   Estado Miembro Última intervención   383
     

    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