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