VBA FollowHyperlink : Excel file do not open until Break or Stop instruction ?

[leyeti77]

Hello team,
First, I have spend literally a two complete days over the last 7 days, to search for a solution, made many attempts, and really feel weird about this simple act 'Open another file' which seems now very complex (to me at least).
I need to open an Excel file located on a SharePoint. Whatever the solution (Workbook.Open, or FollowHyperLink) it does not open, unless I'm in step by step mode, or add a Stop just after the instruction
I have also tried to use a Call to another Sub, (That is the reason the "Call" instruction is present below) but it was exactly the same issue.
Any brilliant suggestion is welcome, as this macro will be used by non expert and this should be transparent to them.

    ActiveWorkbook.FollowHyperlink (Range("Focus_File_Adress").Value)
    'Call Open_Focus_File
    Stop ' With this Stop, the file opens after 10 sec which is the normal duration

looping:  ' Before using the "STOP" instruction, I had set the below line to wait until the file eventually opens
       Application.Wait (Now + TimeValue("00:00:01"))
      Set oFocus_Wb = GetWorkbook(sFocus_Name)
       oPBar.Pos 1, "Wait for file to Open " & " Loop : " & i
       ' Interruption demandee
            If oPBar.StopRequested Then GoSub Break_Requested
            i = i + 1
            If oFocus_Wb Is Nothing Then GoTo looping

 

[DanteAmor]

Welcome to the MrExcel forum.

Try:

  DoEvents
  ActiveWorkbook.FollowHyperlink (Range("Focus_File_Adress").Value)
  DoEvents

Or this:

  DoEvents
  Call Open_Focus_File
  DoEvents

----- --
Let me know the result a
Dante Amor
----- --

 

[leyeti77]

Hi,
Tried both, and unfortunately, "Duck still alive" as we say in France. Sorry for that, Thx for the attempt
Why do we need to Stop the macro (on be in Step mode) in order the file opens ? I do not catch the mechanism here.