Sub Test()
Dim Wbk As Workbook
Set Wbk = Workbooks.Open("https://pgcconline.blackboard.com/webapps/dur-browserCheck-bb_bb60/samples/sample.xlsx")
Wbk.Activate
MsgBox "Voilà le fichier est ouvert, même chose sur un intranet"
Wbk.Close
MsgBox "Voilà le fichier est fermé"
End Sub