XL 2016 VBA - Comment empêcher Excel de modifier les liens Hypertexte à l'enregistrement

Hasco

XLDnaute Barbatruc

Repose en paix

• 27 Mai 2021

• #2

Bonjour,

A part passer par la formule HYPERLINK je ne vois pas sauf à reconstruire tous les liens à l'ouverture du classeur.

VB:

ActiveSheet.Range("E6").Formula = "=HYPERLINK(""" & FichierPhoto & """,""photo"")"

Curieux de voir si une solution simple va émerger

Cordialement

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Mai 2021

• #3

Bonjour @Roblochon,

L'alternative que tu proposes pourrait être une solution. Sachant que pour exploiter le lien par VBA il faut évidemment parser la formule, ce qui n'est pas bien compliqué.

Je vais quand même attendre de voir si une autre solution pointe à l'horizon.

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 27 Mai 2021

• #4

Bonjour Dudu2, Roblochon, le forum

Fichier/Options/Options avancées/Options Web, décocher "mettre à jour les liens avant enregistrement"
Option d'application

Cordialement, @+

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Mai 2021

• #5

Bonjour @Yeahou,

En effet je viens de le voir au même moment sur un site.



Mais cela ne me convient pas vraiment sauf si j'arrive à modifier cette option via VBA.
Tu aurais une idée ?

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 27 Mai 2021

• #6

On devrait normalement pouvoir l'attaquer en lecture écriture avec la propriété application.defaultweboptions ou par l'objet weboptions du classeur, je regarde comment et si on peut.
C'est peut être aussi une option d'enregistrement, je regarde si elle est documentée

@+

 

Vote positif 0 Vote négatif

Solution

Dudu2

XLDnaute Barbatruc

• 27 Mai 2021

• #7

Tu as raison...

Propriété DefaultWebOptions.UpdateLinksOnSave (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

VB:

Dim objAppWebOptions As Object
  
Set objAppWebOptions = Application.DefaultWebOptions
objAppWebOptions.UpdateLinksOnSave = False

Le problème c'est que c'est une option Application et non Workbook.
Donc elle va rester permanente. Mais à la limite je trouve que c'est mieux car Excel n'a pas à bricoler les Hyperliens.

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 27 Mai 2021

• #8

En cherchant dans les docs microsoft, j'ai trouvé cela, ça fonctionne
Application.DefaultWebOptions.UpdateLinksOnSave = False
Application.DefaultWebOptions n'est finalement pas si en lecture seule que ça puisqu'on peut attaquer ses dépendances.

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 27 Mai 2021

• #9

Dudu2 à dit:

Le problème c'est que c'est une option Application et non Workbook.
Donc elle va rester permanente. Mais à la limite je trouve que c'est mieux car Excel n'a pas à bricoler les Hyperliens.

Cliquez pour agrandir...

je ne vois vraiment pas pourquoi tu ne pourrais pas la gérer comme les autres propriétés d'application style Calculation

@+

 

Dernière édition: 27 Mai 2021

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Mai 2021

• #10

En tous cas, quand c'est fait manuellement, l'effet est aussi général.
Dans le pire des cas, si on veut ne pas impacter les options par défaut ou courantes:

VB:

    'https://www.excel-downloads.com/threads/vba-comment-empecher-excel-de-modifier-les-liens-hypertexte-a-lenregistrement.20057520
    Dim UpdateLinksOnSave As Boolean
    
    'Sauvegarde de l'option Fichier/Options/Options avancées/Options Web/"Mettre à jour les liens avant enregistrement"
    UpdateLinksOnSave = Application.DefaultWebOptions.UpdateLinksOnSave
    
    'False pour éviter de rendre relatifs les liens partageant le même chemin que le classeur
    Application.DefaultWebOptions.UpdateLinksOnSave = False
    
    '-------------------------
    'Enregistrement du fichier
    '-------------------------
    ThisWorkbook.Save
    
    'Restoration de l'option Fichier/Options/Options avancées/Options Web/"Mettre à jour les liens avant enregistrement"
    Application.DefaultWebOptions.UpdateLinksOnSave = UpdateLinksOnSave

 

Pièces jointes

• VBA - Comment empêcher Excel de modifier les liens Hypertexte à l'enregistrement.xlsm

  20.6 KB · Affichages: 2

Dernière édition: 27 Mai 2021

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Mai 2021

• #11

J'ai modifié et repris ton instruction:

VB:

Application.DefaultWebOptions.UpdateLinksOnSave = False

C'est un peu un tout petit peu plus simple que de créer l'objet Application.DefaultWebOptions. et de définir l'option UpdateLinksOnSave.

Par contre ça ne change rien au problème que cette modif est générale et qu'il faut éventuellement la restorer si on veut garder les options Excel en cours.

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 27 Mai 2021

• #12

de mémoire, en passant par un objet classeur.weboptions, on récupère un objet comprenant les propriétés weboptions classeur et defaultweboptions héritées de l'application, à voir si on peut accéder en écriture au UpdateLinksOnSave hérité sans toucher au paramètre par défaut.

Bien cordialement, @+

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 27 Mai 2021

• #13

Ce serait logique de penser que le Workbook.WebOptions hérite des settings de l'Application mais hélas, la propriété UpdateLinksOnSave n'est pas reconnue au niveau Workbook.WebOptions.
Et Workbook.DefaultWebOptions n'existe pas et c'est normal.
D'ailleurs niveau Application il y a .WebOptions et .DefaultWebOptions. Ceci explique sans doute cela.

Par contre ce qui n'est pas très logique c'est de ne pas avoir les propriétés du .DefaultWebOptions dans le .WebOptions.

 

Dernière édition: 27 Mai 2021

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 28 Mai 2021

• #14

Bonjour le fil, le forum

Dudu2 à dit:

Ce serait logique de penser que le Workbook.WebOptions hérite des settings de l'Application mais hélas, la propriété UpdateLinksOnSave n'est pas reconnue au niveau Workbook.WebOptions.
Et Workbook.DefaultWebOptions n'existe pas et c'est normal.
D'ailleurs niveau Application il y a .WebOptions et .DefaultWebOptions. Ceci explique sans doute cela.

Par contre ce qui n'est pas très logique c'est de ne pas avoir les propriétés du .DefaultWebOptions dans le .WebOptions.

Cliquez pour agrandir...

oui, elles n'y sont pas toutes, encore une incohérence quoiqu'il y ait certainement une raison mais je ne vois pas laquelle.(peut être un ajout plus tardif et une implémentation bancale de la propriété UpdateLinksOnSave, Vba n'étant pas une priorité de Microsoft)

Bien cordialement, @+

 

Dernière édition: 28 Mai 2021

Vote positif 0 Vote négatif