XL 2016 problème ouverture page web pdf

chifounou

XLDnaute Occasionnel
Re,

J'applique ce code pour lancer une page web à l'ouverture du classeur.

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    Cancel = True
    If c.Address = "$E$5" Then
       Address:="https://www.degiro.es/data/pdf/es/Relacion_de_tarifas.pdf"
       End If
End Sub

Cependant lorsque le lien pointe vers un PDF en ligne, j'ai irrémédiablement la pop-up suivante lors du double-click sur la case

IMG_3177.JPG


Et pire, en cliquant sur Cancel j'ai ça

IMG_3176.JPG


J'aimerais savoir si il y a un moyen que la pop-up de confirmation n'apparaisse pas du tout ? ou bien que la confirmation OK soit validée d'office sans intervention de ma part

Merci !
 

Lone-wolf

XLDnaute Barbatruc
Re chifounou

dans un module
VB:
Option Explicit

Public Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub Ouvrir()
    Dim Fichier As String
   
    Fichier = "https://www.degiro.es/data/pdf/es/Relacion_de_tarifas.pdf"
    ShellExecute 0, "", Fichier, "", "", 0
End Sub

ensuite

VB:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
Dim cel As Range

  Set  cel = [E5]

    If c.Address = cel.Address Then
        Call Ouvrir
    Else
        Exit Sub
    End If
    Cancel = True

End Sub
 

chifounou

XLDnaute Occasionnel
J'ai un petit soucis que je n'arrive pas à élucider.

Je fais donc cohabiter un lien hypertexte réagissant sur simple click, avec une macro lançant des liens mais réagissant au double-click

Dans le fichier joint, case de gauche, lorsque je double-click, tout va bien : cela lance seulement les liens de la macro adossée et pas le lien hyper-texte

Malheureusement, lorsque je double-click sur la case de droite, en plus des liens macros lançant 2 pages de PDF, le lien hypertexte se lance aussi...
Au lieu de 2 pages (celles de PDF) qui sont programmées par macro pour se lancer, je me retrouve avec 3 pages (les 2 PDF et le lien hypertexte qui ne devrait pas réagir au double-click mais simple click)

Si vous avez une solution je suis preneur ! Merci
 

Pièces jointes

  • Book2.xlsm
    69.9 KB · Affichages: 31

Lone-wolf

XLDnaute Barbatruc
Re chifounou :)

VB:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)

    If Not Intersect(c, [F5]) Is Nothing Then
        ActiveWorkbook.FollowHyperlink Address:="https://www.google.com"
        ActiveWorkbook.FollowHyperlink Address:="http://www.bing.com/"
        Range("F13").Select
    Else
        Exit Sub
        Cancel = True
    End If

    If Not Intersect(c, [I5]) Is Nothing Then
        open_PDF_webpages_NinjaTrader_brokerage
        Range("I13").Select
    Else
        Exit Sub
        Cancel = True
    End If
End Sub

Mais je ne comprends pas pourquoi les doubles liens?? :rolleyes:
 
Dernière édition:

JCGL

XLDnaute Barbatruc
Bonjour à tous,
Salut Lone-Wolf,

Un double-click est, aussi, un simple click multiplié par 2....
Je pense que la suppression du lien hypertexte pourrait partiellement répondre à la demande.

A+ à tous
 
Dernière édition:

chifounou

XLDnaute Occasionnel
Bonjour JCGL,

Dans la case de gauche, la distinction simple-click / double-click est bien prise en compte

J'ai déjà essayé d'insérer dans la macro de droite, la suppression du lien hypertexte, afin de le remettre quand tout est terminé, mais je ne suis pas parvenu au résultat escompté
 

Lone-wolf

XLDnaute Barbatruc
Bonsoir chifounou :), Jean Claude :), le Forum :)

@ chifounou: chez moi c'est la fenêtre de téléchargement du pdf qui ne s'affiche pas. Personnellement, je te conseillerais de mettre les liens dans 4 cellules et utiliser l'évenement selection_change. Mettre en colonne A par exemple: lien 1 - lien 2 - lien 3 - lien 4.
 

Discussions similaires

Statistiques des forums

Discussions
312 932
Messages
2 093 726
Membres
105 799
dernier inscrit
lahrech_hassan