Public Sub updateWBLinks()
Dim oWB As Workbook
thisbk = ActiveWorkbook.Name ' this is the summaray sheet.
dbfilepath = "C:\Classeur2.xlsx" ' this is the file to get data from - password protected.
Application.DisplayAlerts = False
Set oWB = Workbooks.Open(Filename:=dbfilepath, UpdateLinks:=3, Password:="test", writerespassword:="")
oWB.Close
dbfilepath = "C:\Classeur3.xlsx" ' this is the file to get data from - password protected.
Application.DisplayAlerts = False
Set oWB = Workbooks.Open(Filename:=dbfilepath, UpdateLinks:=3, Password:="test", writerespassword:="")
oWB.Close
dbfilepath = "C:\Classeur4.xlsx" ' this is the file to get data from - password protected.
Application.DisplayAlerts = False
Set oWB = Workbooks.Open(Filename:=dbfilepath, UpdateLinks:=3, Password:="test", writerespassword:="")
oWB.Close
End Sub