XL 2019 Ouvre lien sur 64 bits

Dim URL As String
    URL = "https://docs.google.com/...."
    ActiveWorkbook.FollowHyperlink URL

#If VBA7 Then
    Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" _
           Alias "ShellExecuteA" (ByVal hwnd As LongPtr, _
                                  ByVal lpOperation As String, _
                                  ByVal lpFile As String, _
                                  ByVal lpParameters As String, _
                                  ByVal lpDirectory As String, _
                                  ByVal nShowCmd As Long) As LongPtr
#Else
    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
#End If