Dim FilePath As String
Dim FileName As String
Application.DisplayAlerts = False
FilePath = Trim(ThisWorkbook.Sheets("Analysis").Range("B10"))
FileName = Trim(ThisWorkbook.Sheets("Analysis").Range("I10"))
FEUILL1 = FileName + ".xls"
FileName = FilePath + FileName
Workbooks.Open FileName:=FileName, UpdateLinks:=True