Microsoft 365 VBA, approuver ouverture PDF en ligne

ViroMajor · 2 Juin 2019

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

VB:

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 · 2 Juin 2019

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 · 2 Juin 2019

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 · 2 Juin 2019

Bonjour à tous

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

VB:

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 · 2 Juin 2019

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 · 2 Juin 2019

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

VB:

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 · 3 Juin 2019

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

VB:

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 · 3 Juin 2019

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+

Microsoft 365 VBA, approuver ouverture PDF en ligne

ViroMajor

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

ViroMajor

XLDnaute Nouveau

Temjeh

XLDnaute Accro

ViroMajor

XLDnaute Nouveau

Temjeh

XLDnaute Accro

ViroMajor

XLDnaute Nouveau

Temjeh

XLDnaute Accro

Discussions similaires