Microsoft 365 VBA, approuver ouverture PDF en ligne

[ViroMajor]

Bonsoir le forum,

A la racine d’une feuille, j’ai ce code dont l’objectif est d’ouvrir un lien en ligne d’un PDF

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D4")) Is Nothing Then
        If Target = "x" Then ActiveWorkbook.FollowHyperlink Address:="https://www.oanda.com/register/docs/divisions/oel/risk_disclosure_agreement_uk.pdf"
    End If
End Sub

Excel demande une validation, ne faisant pas confiance à la source initialement.

Est-il possible de valider sur OK via du code VBA, afin de sauter cette étape de pop-up ?

Merci bien!

 

[Staple1600]

Bonjour le fil, Viromajor

Sans passer par VBA, mais par une piste plus radicale
A tester à ses risques et périls (vu qu'on touche à la BDR)

PS: Non testé car actuellement sur une version antérieure d'Excel.

 

[ViroMajor]

Bonjour Staple,

Je te remercie. Ta solution va agir globalement alors que je préférerais agir au cas par cas.

Je sais que ça existe en VBA. Je l’avais vu passé et utilisé il ya des mois de celà, mais je ne retrouve pas. Je vais continuer de chercher. Bon dimanche

 

[Temjeh]

Bonjour à tous

Si c'est juste pour l'ouvrir pour une consultation

If Target = "x" Then Shell ("C:\Program Files\Google\Chrome\Application\chrome.exe -url https://www.oanda.com/register/docs/divisions/oel/risk_disclosure_agreement_uk.pdf")

Juste changer le chemin de Chrome

A+

 

[ViroMajor]

Bonjour Temzeh,

Merci ! sauf que je recherche compatible avec le navigateur par défaut (donc tout navigateur, sans en cibler un). Désolé, tatillon

 

[Temjeh]

Trouvé sur le net et semble ouvrir le par défaut

Private Declare Function ShellExecute _
  Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hWnd As Long, _
  ByVal Operation As String, _
  ByVal Filename As String, _
  Optional ByVal Parameters As String, _
  Optional ByVal Directory As String, _
  Optional ByVal WindowStyle As Long = vbMinimizedFocus _
  ) As Long

Public Sub OpenUrl()

    lSuccess = ShellExecute(0, "Open", "https://www.oanda.com/register/docs/divisions/oel/risk_disclosure_agreement_uk.pdf")

End Sub

 

[ViroMajor]

Bonjour, ton script semblae correspondre à une ancienne version de VBA, invalide

Poursuivant les recherches, j’ai trouvé la solution, beaucoup plus minimaliste, on ne va pas s’en priver

Sub Open_trusted_PDF_link()
    Dim shell As Object
    Set shell = CreateObject("WScript.Shell")
    shell.Run "https://www.oanda.com/register/docs/divisions/oel/risk_disclosure_agreement_uk.pdf"
End Sub

Bonne semaine la compagnie

 

[Temjeh]

Non pas invalide. Il fonctionne très bien!
Je garde le tien.
Un autre code a ajouté dans ma base de code

Merci de l'avoir partagé

A+