XL 2010 Desactivation message alerte ouverture lien hypertexte

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Septembre 2020

• #2

Bonjour EricDes,
Sans fichier test difficile d'affirmer, mais avez vous essayez en début de macro d'insérer :

VB:

Application.DisplayAlerts = False

Penser à remettre à True à la fin.

 

Vote positif 0 Vote négatif

E

EricDES

Guest

• 21 Septembre 2020

• #3

Bonjour,
En fait, le truc se produit dès lors que j'ai un lien html en hypertexte dans une cellule.
Donc, ça ne se joue pas dans une macro.
Si je copie ce lien hypertexte html d'une cellule et que je le colle dans la barre d'adresse de mon navigateur Firefox => je n'ai aucun problème pour afficher la page du lien HTML dans mon navigateur.
Et évidemment si je clique OK au message d'alerte Excel (voir fichier joint), la page du lien html s'affiche aussitôt dans Firefox. Bizarre et très énervant.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Septembre 2020

• #4

Oups!
Il semblerait qu'effectivement le problème se résout par modification de la BR.

Activer ou désactiver les messages d’avertissement de lien hypertexte dans les programmes Office - Microsoft 365

Décrit comment activer ou désactiver les messages d’avertissement de lien hypertexte dans les programmes Microsoft Office.

docs.microsoft.com

Pas nécessairement dangereux si vous maitrisez la modification de le BR. Sinon le mieux est de s'abstenir.

 

Vote positif 0 Vote négatif

E

EricDES

Guest

• 21 Septembre 2020

• #5

J'ai testé le "Application.DisplayAlerts = False" et j'ai toujours le message d'alerte Excel.

 

Vote positif 0 Vote négatif

E

EricDES

Guest

• 21 Septembre 2020

• #6

Merci.
J'avais déjà trouvé et testé ce lien Microsoft.
J'ai suivi pas à pas cette méthode Microsoft avec regedit => ça ne marche pas !!! :-(

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Septembre 2020

• #7

Bonjour EricDES, sylvanu,

Placez cette macro dans le code de la feuille contenant les liens hypertextes :

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Hyperlinks.Count Then
    If Target.Hyperlinks(1).Address <> "" Then
        Cancel = True
        CreateObject("wscript.shell").SendKeys "{TAB}~"
        Me.Parent.FollowHyperlink Target.Hyperlinks(1).Address
    End If
End If
End Sub

Et au lieu de cliquer sur un lien avec le bouton gauche de la souris cliquez avec le bouton droit.

Notez que l'envoi de touches avec wscript.shell ne désactive pas le pavé numérique.

A+

 

Vote positif 0 Vote négatif

E

EricDES

Guest

• 21 Septembre 2020

• #8

Ouh là !!! Ca marche mais je ne comprends pas le "miracle" !!!
Merci beaucoup.
Cette macro est-elle généralisable au classeur entier (cad toutes les feuilles ?)
Votre solution me laisse pantois ...

 

Vote positif 0 Vote négatif

E

EricDES

Guest

• 21 Septembre 2020

• #9

à quoi sert le "CreateObject("wscript.shell").SendKeys "{TAB}~" ?

Un grand mystère pour moi.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Septembre 2020

• #10

EricDES à dit:

Cette macro est-elle généralisable au classeur entier (cad toutes les feuilles ?)

Cliquez pour agrandir...

Oui, placez cette macro dans le ThisWorkbook :

VB:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Hyperlinks.Count Then
    If Target.Hyperlinks(1).Address <> "" Then
        Cancel = True
        CreateObject("wscript.shell").SendKeys "{TAB}~"
        Me.FollowHyperlink Target.Hyperlinks(1).Address
    End If
End If
End Sub

EricDES à dit:

à quoi sert le "CreateObject("wscript.shell").SendKeys "{TAB}~" ?

Cliquez pour agrandir...

Cette instruction envoie les touches <Tab> et <Entrée> sur le message d'alerte (la touche <Tab> déplace le focus sur le bouton OK).

 

Vote positif 0 Vote négatif

E

EricDES

Guest

• 21 Septembre 2020

• #11

Vous êtes trop trop trop fort !!!!

Je connaissais le sendKeys mais dans d'autres environnement que celui d'Excel.
Bien pratique
.
Cela dit, je ne comprends toujours pas deux choses :

1. Pourquoi certains des hyperliens marchent direct sans chercher midi à 14h !!! ???

(hyperlien du type Ce lien n'existe plus)

Je fais une sélection sur une ou plein de cellules et tout ça s'ouvre dans Firefox avec une macro qui va bien et qui boucle sur la plage de sélection !!

2. Pourquoi mes hyperliens qui ne s'ouvrent pas sans le message d'alerte de m..de d'Excel , je peux tout de même via VBA créer des PDF d'une sélection de cellule avec des hyperliens sans problème et les ouvrir après avec Acrobat Reader DC dans la limite imposée par Acrobat Reader DC (cad 50 !!) et celle de la RAM du PC (Bien sûr) ?

(hyperlien du type Ce lien n'existe plus ou Ce lien n'existe plus )

Que de mystères ...

Le MUST serait de savoir comment désactiver ce message d'alerte Excel qui fait ch.er si on veut ouvrir des hyperliens ...

 

Dernière modification par un modérateur: 22 Septembre 2020

Vote positif 0 Vote négatif