XL 2019 Ouvre lien sur 64 bits

[Temjeh]

Bonjour et merci d'avance

J'ai un code qui ouvre un lien internet avec navigateur par défaut.
Il fonctionne bien sur mon ordinateur mais chez mon ami il mentionne une erreur 64 bit.

Existe-t-il une façon universelle?

Merci de votre temps!

Temjeh

Private 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

ShellExecute 0, "open", "https://drive.google.com/drive/...", "", "", 1

 

[Temjeh]

Je ne peu pas faire le test mais je pense que ceci fonctionnera.
Possible?

Temjeh

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

 

[patricktoulon]

Bonsoir
tout simplement la méthode FollowHyperlink membre d'object workbook

ActiveWorkbook.FollowHyperlink Address:="https:\\www.google.com"

 

[kiki29]

Salut, j'ai trouvé ceci:

#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

 

[Temjeh]

Merci beaucoup

Une version courte et une longue

Je testerai chez lui.

Le problème résolu.

Bonne soirée!