Sub AddRatio(DirectoryLink As String, TextBID As String)
Dim WorkbookMaster As Workbook, WorkbookSlaveREF As String, WorkbookSlaveKV As String
Dim NewRatio, Reference, Ratio, KeyValues, TabTotal
Dim Repertory As String, i As Integer, LastRowTab As Integer, LastRow As Integer
Repertory = ActiveWorkbook.Path
Set WorkbookMaster = ActiveWorkbook
WorkbookSlaveREF = Dir(DirectoryLink & "\REF*.xls")
WorkbookSlaveKV = Dir(Repertory & "\KV " & TextBID & " AO.xls")
Set Reference = Workbooks.Open(DirectoryLink & "\" & WorkbookSlaveREF)
Set KeyValues = Workbooks.Open(Repertory & "\" & WorkbookSlaveKV)
Set Ratio = Reference.Sheets("Tableau")
Set NewRatio = KeyValues.Sheets("Table")
NewRatio.Unprotect ("0000")
LastRowTab = Ratio.Range("A6").End(xlDown).row 'Dernière ligne de la base de données esclave
TabTotal = Ratio.Range("A6:H" & LastRowTab) 'Mise en place des valeurs dans le tableau esclave
For i = LBound(TabTotal) To UBound(TabTotal)
NewRatio.Cells(i + 5, 24) = TabTotal(i, 8)
With NewRatio.Cells(i + 5, 24)
.NumberFormat = "#,##0"
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With
Next
NewRatio.Select
NewRati
utline.ShowLevels 2, 1
NewRatio.Protect ("0000")
Workbooks(WorkbookSlaveKV).Save
Workbooks(WorkbookSlaveREF).Close
'Workbooks(WorkbookSlaveKV).Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'Workbooks.Open (Repertory & "\" & WorkbookSlaveKV)
'WorkbookMaster.Close
End Sub