XL 2016 problème ouverture page web pdf

[chifounou]

Re,

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

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

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

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]

Re chifounou

dans un module

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

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]

Fidèle au poste Lone-Wolf ! Merci infiniment
Je teste ça dans la journée

 

[chifounou]

Il ne manque pas quelque chose ?

 

[Lone-wolf]

Re chifounou

C'est bizarre qu'il te note ça en rouge?? Essaie comme ceci

Public Declare PtrSafe Function. Chez moi je n'ai pas ce problème.

 

[chifounou]

Il fallait PrtSafe pour débloquer la situation et maintenant ça marche nickel

Merci pour la grande générosité de cette communauté. S il y avait autant d'entraide dans la société qu'ici... Bravissimo

 

[chifounou]

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

 

[Lone-wolf]

Re chifounou

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:

 

[JCGL]

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

 

[chifounou]

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]

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.

 

[Lone-wolf]

Re chifounou

Je t'ai envoyé un MP.

 

[chifounou]

Merci à Lone-Wolf qui m'a pondu une solution sur mesure !